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ABSTRACT 

Davies,  Gary  William.   M.S.C.E.,  Purdue  University, 
June,  1972.   Optimization  of  a  Traffic  Signal  Network 
through  Computer  Simulation.   Major  Professors:   William 
L.  Grecco  and  Kenneth  W.  Heathington. 

The  objective  of  this  study  was  to  develop  a  simulation 
program  which  would  be  suitable  for  use  in  the  design  of 
traffic  signal  systems.   In  keeping  with  this,  it  was  desired 
to  develop,  program,  and  test  a  conceptual  model  that  would 
simulate  the  flow  of  vehicles  on  a  street  network  controlled 
by  traffic  signals.   Secondary  goals  were  that  the  model  be 
general  enough  to  apply  to  any  moderate  sized  network,  and 
that  the  final  program  be  such  that  the  inputs  and  outputs 
could  be  easily  understood  by  a  non-computer  oriented  traffic 
engineer. 

A  simulation  model,  SIGNET,  was  developed  to  reproduce 
traffic  under  laboratory  conditions.   The  program  was  fairly 
economical,  achieving  a  6.5  to  1  real-time  to  simulation  ratio, 
The  model  was  quite  microscopic  in  nature,  since  each  vehicle 
was  individually  processed  through  the  network.   A  sensitivity 
analysis  indicated  that  the  model  simulated  traffic  flows 
quite  accurately. 

The  model  was  used  t^  evaluate  several  alternative 
timing  plans,  and  indicated  by  a  significant  difference  in 


Xll 


mean  delay  between  two  of  these  plans  that  it  is  indeed 
sensitive  to  variations  in  signal  timing.   It  was  demonstrated 
that  the  incorporation  of  simulation  into  the  design  proce- 
dure could  make  that  procedure  quicker,  at  the  same  time 
resulting  in  the  production  of  a  more  efficient  timing  plan. 

The  use  of  the  SIGNET  model  is  not  restricted  to  signal 
timing  studies.   In  fact,  the  effects  of  many  other  traffic 
engineering  measures  may  be  evaluated  by  varying  the  program 
inputs.   Such  measures  could  include  turning  movement  prohi- 
bitions, parking  restrictions,  unbalanced  lane  operation, 
and  one-way  street  operation.   A  comprehensive  set  of  improve- 
ments to  the  network  can  thus  be  easily  evaluated.   This 
capability  is  important  because  traffic  signal  optimization 
cannot  be  considered  to  be  the  sole  means  of  obtaining 
maximum  network  efficiency. 


CHAPTER  I 
INTRODUCTION 

Since  its  first  appearance  on  the  urban  scene,  the 
automobile  has  become  a  dynamic  social  force  molding  the 
structure  of  cities  and  the  style  of  daily  life.   It 
represents  unprecedented  individual  mobility,  comfort, 
and  convenience;  consequently  it  has  become  enormously 
popular. 

With  the  increased  use  of  the  automobile,  however, 
have  come  many  problems.   Congestion  and  the  ensuing 
delays  are  just  short  of  intolerable  in  many  cities.   A 
more  subtle  but  perhaps  more  dangerous  problem  is  the 
deterioration  of  the  total  environment:   deaths,  injuries, 
and  property  damage  caused  by  accidents  continue  to 
increase;  exhaust  fumes  and  noise  provide  very  real 
sources  of  pollution;  and  automobiles  seem  to  penetrate 
into  every  available  clear  space  of  land. 

Increasing  auto  traffic  and  the  attendant  problems 
outlined  above  are  threatening  the  viability  of  the 
central  business  districts  of  many  cities  more  each  year. 
There  are  currently  in  vogue  four  approaches  to  the 
solution  of  these  problems : 


1.  Road  construction  and  improvement:   this  is  very 
expensive,  tends  to  generate  new  demand,  and  necessitates 
the  provision  of  additional  parking  facilities.   It 
involves  a  net  loss  of  scarce  land  which  might  be  put  to 
other  use. 

2.  Mass  transit  construction  and  improvement:   This 
line  of  attack  is  currently  being  pursued  in  several 
major  cities.   Model   preferences  seem  to  be  based 
primarily  on  personal  tastes  rather  than  on  personal 
finances.   Therefore  the  comfort,  convenience,  and 
privacy  of  mass  transit  vehicles  must  be  improved 
considerably  to  at  least  stabilize  transit  usage  in  many 
urban  areas. 

3.  Auto  user  constraints:   in  this  area  are 
included  special  peak- hour  tolls,  the  staggering  of 
office  hours,  and  deliberately  increased  parking  lot 
charges  to  discourage  auto  commuters.   Such  schemes  would 
certainly  tend  to  reduce  critical  peak  hour  volumes,  but 
it  is  quite  possible  that  the  viability  of  the  central 
business  district  would  also  be  threatened  by  such  action. 

4.  Increasing  the  efficiency  of  the  existing 
system:   before  any  of  the  above  more  drastic  measures 
are  implemented  there  is  a  general  trend  to  obtain  the 
maximum  efficiency  out  of  the  existing  facilities.   Such 
actions  involve,  at  least  in  their  simpler  forms, 
relatively  minor  expenditures  and  little  or  no  construction, 


Measures  of  this  kind  include  turning  movement  controls 
at  intersections,  parking  restrictions,  unbalanced  lane 
operation,  one-way  street  operation,  improvement  of 
signs  and  markings,  and  channelization.   Another  measure, 
improvement  of  traffic  signal  operation,  can  result  in 
improved  use  of  the  intersections,  thereby  significantly 
increasing  overall  network  efficiency. 

The  at-grade  intersection  is  the  most  critical 
component  of  the  urban  traffic  network.   It  is  the  focal 
point  of  congestion  and  the  greatest  source  of  delay.   A 
traffic  signal  can  allocate  the  usage  of  this  facility 
between  the  conflicting  streams  of  vehicles,  and  by 
coordinating  the  timing  of  adjacent  signals,  the  flow  of 
traffic  can  be  markedly  improved. 

To  date  the  theoretical  treatment  of  signal 
controlled  traffic  networks  has  been  limited.   The 
determination  of  optimal  signal  settings  at  an  isolated 
intersection  was  thoroughly  covered  in  a  monograph  by 
F.  V.  Webster  (38).   The  interactive  effects  of  more 
closely  spaced  signals  on  arterials  has  been  considered 
with  varying  degrees  of  success  in  many  methods, 
including  the  Yardeni  Time-Space  Design  Model  (41) ,  the 
Little  Maximal  Bandwidth  Model  (28)  ,  the  Delay/Dif ference- 
of-Offset  Method  (15,23,36),  the  Eagle  Signal  Method  (31), 
and  the  Raus  Method  (31).   The  problems  which  these 
interactive  effects  raise  in  closed  networks,  however, 


have  slowed  progress  in  that  area.   One  of  the  more 
significant  efforts  to  date  has  been  the  development  of 
SIGOP,  a  traffic  signal  optimization  program,  by  Peat, 
Marwick,  Livingston,  and  Co.   Given  a  set  of  data 
describing  the  geometries  of  a  signalized  street  network 
and  traffic  characteristics  for  a  given  period  of  interest, 
the  function  of  SIGOP  is  to  determine  a  plan  of  cycle 
length,  phase  splits,  and  offsets  for  the  traffic  signals 
in  the  network.   Other  procedures  such  as  the  Webster 
Method,  the  Delay/Dif ference-of-Of f set  Method,  the 
British  Combination  Method  (36),  the  Volume  Priority 
Method  (36),  and  the  Preferential  Street  Method  (36)  may 
be  combined  to  produce  efficient  timing  plans  also. 
Under  different  conditions  each  of  these  methods  could 
produce  the  most  efficient  timing  plan;  it  is  necessary 
to  devise  a  means  of  choosing  this  optimal  plan,  there- 
fore. 

Probably  the  most  accurate  means  of  determining 
the  proper  timing  scheme  for  a  given  network  would  be  to 
develop  several  alternatives,  implement  each,  and  study 
each  scheme's  effect  on  the  system.   This  approach  poses 
several  problems,  however.   It  would  be  very  expensive 
to  sufficiently  instrument  the  system  to  gather  the 
required  data;  the  time  required  to  undertake  such  a 
design  process  would  also  be  prohibitive;  it  could  even 
be  inconvenient  to  the  motorist  in  extreme  cases. 


Another  method,  computer  simulation,  may  be  far  less 
expensive  than  field  experimentation,  and  it  offers  a 
much  wider  scope  for  innovation  and  experimentation  with 
the  complete  control  the  researcher  has  over  its  inputs 
and  operation.   It  is  probable  that  a  design  procedure 
incorporating  simulation  would  also  be  considerably 
faster  than  other  procedures. 

The  objective  of  this  study  was  to  develop  a 
simulation  program  which  would  be  suitable  for  use  in  the 
design  of  traffic  signal  systems.   In  keeping  with  this, 
it  was  desired  to  develop,  program,  and  test  a  conceptual 
model  that  would  simulate  the  flow  of  vehicles  on  a 
street  network  controlled  by  traffic  signals.   Secondary 
goals  were  that  the  model  be  general  enough  to  apply  to 
any  moderate  sized  network,  and  that  the  final  program 
be  such  that  the  inputs  and  outputs  could  be  easily 
understood  by  a  non-computer  oriented  traffic  engineer. 

In  the  following  chapters,  the  development  of  the 
simulation  model  is  traced  and  the  basic  portions  of 
the  model  defined  (Chapter  II) ,  the  working  details  of 
the  model  are  described  (Chapter  III)  ,  the  study  network 
is  described  (Chapter  IV) ,  the  testing  and  validation 
of  the  model  are  explained  (Chapter  V) ,  and  the  use  of 
the  model  in  the  design  of  a  signal  timing  plan  is  shown 
by  example  (Chapter  VI). 


CHAPTER  II 
DEVELOPMENT  OF  THE  SIMULATION  MODEL 

The  use  of  computer  simulation  as  a  traffic  research 
tool  is  virtually  untapped.   At  a  time  when  businessmen, 
defense  analysts,  scientists,  corporate  managers,  and 
others  are  employing  simulation  to  assist  them  in  making 
better  decisions  and  to  gain  more  understanding  of  complex 
processes,  many  traffic  engineers  have  failed  to  consider 
seriously  the  use  of  simulation. 

Many  significant  efforts,  some  with  varying  degrees 
of  success,  have  been  made,  however,  at  closing  this 
breech.   Production- type,  general  purpose  computers  were 
not  readily  available  until  about  1954.   In  1956,  three 
digital  computer  simulations  were  reported  in  the  traffic 
engineering  literature.   Gerlough  discussed  the  simulation 
of  traffic  on  a  freeway  (11).   Wong's  paper  described  the 
simulation  of  a  portion  of  a  multi-lane  boulevard  (40) . 
Goode,  Pollmar,  and  Wright  constructed  a  model  of  a 
signalized  intersection  (16) .   Two  separate  studies  of 
intersection  simulation  performed  by  Benhard  (4)  and  Lewis 
(27)  dealt  with  the  intersection  of  two  streets,  each  with 
two  lanes,  and  with  actuated  signal  control.   The  models 
were  greatly  simplified  in  that  turning  and  passing  were 


prohibited.   These  and  other  early  simulations  permitted 
only  a  limited  and  somewhat  arbitrary  action  of  vehicles. 
Later  investigations  incorporated  several  refinements. 
Research  by  Kell  (25)  involved  the  simulation  of  the 
intersection  of  two  urban  two-lane  streets  under  various 
types  of  traffic  control.   The  much  larger  problem  of 
simulating  a  network  was  first  attacked  by  Stark  (33)  and 
Schwartz  (32).   Besides  being  slow,  the  Stark  model  was 
very  heavily  network  dependent,  meaning  it  could  not  be 
easily  applied  to  any  other  network.   Additionally,  the 
printed  output  from  this  model  was  quite  inadequate,  since 
it  relied  primarily  on  an  on-line  visual  display  device 
and  could  not  trace  individual  vehicles  nor  compute  their 
delays.   Although  the  Schwartz  model  was  quite  general,  it 
too  relied  heavily  on  deterministic  relationships  in 
describing  vehicle  behavior.   Traffic  flow  theory  has 
advanced  to  the  point  where  distributions  would  be  more 
desirable  in  most  of  these  cases,  however. 

Probably  the  most  sophisticated  model  to  date  is 
TRANS,  developed  by  Planning  Research  Corporation  (13,14, 
15,37).   The  size  and  configuration  of  arterial  networks 
to  which  TRANS  can  be  applied  is  very  flexible.   Either 
open  networks  (i.e.  arterials)  or  closed  networks  can  be 
studied.   Wherever  available  traffic  flow  data  permit 
distributions  are  used  to  describe  vehicle  actions.   The 
parameters  of  these  distributions  are  required  as  input. 


In  simulating  a  large,  complex  network  in  the  District  of 
Columbia  consisting  of  over  200  links,  a  simulated  time  to 
real  time  ratio  of  1:4  was  achieved. 

A  major  drawback  to  the  widespread  use  of  TRANS  is 
that  it  was  written  in  FAP  for  operation  on  the  IBM  70  90 
computer.   This  would  tend  to  make  the  program  highly 
machine  dependent.   Several  concepts  employed  in  the  TRANS 
model,  however,  were  utilized  in  developing  the  model  in 
this  study. 

There  are  two  basic  areas  which  in  the  past  have 
slowed  the  development  of  simulation  as  a  useful  and 
practical  tool  for  the  traffic  engineer.   The  most  obvious 
has  been  the  state  of  hardware  development.   Fortunately 
this  problem  has  been  all  but  resolved  with  the  development 
of  today's  high  level  computers. 

A  more  subtle,  but  more  critical  problem  is  that  not 
enough  is  known  about  traffic  itself,  especially  in  the 
area  of  defining  distributions  which  can  be  used  to  predict 
vehicle  actions.   Especially  critical  in  this  regard  are 
left-turn  gap  and  lag  acceptance  probabilities,  which 
relate  directly  to  the  amount  of  delay  a  vehicle  encounters 
while  making  a  left  turn.   Other  distributions  needing 
further  definition  are  the  amber  acceptance  distribution, 
lane  change  gap  acceptance  distributions,  and  lane 
distributions  at  intersections.   If  the  distributions  used 
as  a  basis  for  a  mathematical  model  are  incorrect,  it  is 


then  quite  probable  that  the  model  will  also  be  incorrect. 
This  problem  which  has  considerably  hampered  simulation 
development  in  the  past  has  been  somewhat  of  a  problem  in 
this  research.   Until  much  more  progress  is  made  in  the 
area  of  traffic  flow  theory,  it  will  probably  continue  to 
be  one. 

To  be  useful,  traffic  simulation  must  satisfy  three 
basic  considerations: 

1.  The  results  of  the  simulation  must  fit  the  facts; 
in  other  words,  observations  obtained  as  a  result  of 
simulation  must  agree  with  similar  results  obtained  from 
observations  of  actual  traffic  flow. 

2.  The  time  required  to  simulate  a  problem  must  be 
reasonable;   that  is,  the  ratio  of  simulated  time  to  real 
time  must  be  such  that  computer  simulation  of  a  street 
network  is  economically  feasible.   Before  embarking  on  a 
study  the  objectives  of  that  study  should  be  thoroughly 
reviewed  and  the  alternative  techniques  for  meeting  these 
objectives  compared.   The  technique  which  does  the  job 
effectively  at  the  least  cost  should  then  be  chosen.   When 
viewed  from  this  standpoint,  the  use  of  simulation  as  a 
study  tool  often  becomes  much  more  attractive  economically. 

3.  The  results  of  simulation  must  be  accessible  in  a 
format  that  is  meaningful  to  those  using  them.   The  actual 
simulation  takes  place  within  the  computer  and  is,  of 
course,  unobservable  to  the  user  (neglecting  the  use  of 
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some  type  of  on-line  visual  display  device) .   Thus  it  is 
necessary  to  devise  some  means  of  displaying  simulation 
results  in  a  form  convenient  to  the  user. 

If  each  of  the  above  considerations  is  satisfied,  it 
is  presumed  that  the  simulation  model  is  a  useful  tool  in 
the  study  of  signal  timing. 

Mode  of  Representation 
There  are  various  methods  which  may  be  used  to 
represent  the  flow  of  traffic  within  the  computer.   Early 
traffic  simulations  employed  a  physical  notation  (11,16). 
Binary  "l's"  were  used  to  represent  vehicles  and  "O's"  were 
used  to  indicate  the  spaces  between  vehicles.   Groups  of 
memory  cells  were  figuratively  placed  end  to  end  to 
represent  the  roadway.   Algebraic  manipulations  caused  the 
"l's"  to  change  position,  thereby  simulating  the  flow  of 
traffic.   With  this  mode  of  representation  the  vehicles 
can  occupy  only  certain  specified  locations  (bit  positions) 
along  the  roadway  and  individual  vehicles  have  no  identity 
as  such. 

The  memorandum  notation  utilizes  an  entire  word  to 
represent  a  vehicle.  Various  parts  of  the  word  are  used 
for  such  individual  characteristics  as  its  time  of  entry 
into  the  system,  its  desired  velocity,  et  cetera.  These 
parts  may  be  extracted  and  interpreted  as  desired.  This 
method  is  more  versatile  in  that  each  vehicle's 
characteristics  are  identifiable  as  it  moves  through  the 
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network.   This  makes  it  possible  to  compute  the  delays 
associated  with  the  individual  vehicle. 

Most  simulation  programs  which  have  used  the 
memorandum  notation  have  considered  the  roadway  as  being 
composed  of  a  series  of  unit  blocks  (40).   These  blocks 
represent  the  various  positions  which  a  vehicle  can  occupy. 
Each  block  is  one  lane  wide  and  has  a  length  which  is 
equivalent  to  some  fraction  or  multiple  of  the  unit 
vehicle  length.   Thus  a  vehicle  may  occupy  only  a  limited 
number  of  discrete  positions.   Velocity  and  acceleration 
are  step  functions  of  the  unit  block  and  the  time  increment 
of  scanning.   This  procedure  is  adequate  for  some  models, 
but  offers  severe  restrictions  when  realistic  total  delays 
are  desired. 

A  third  method  of  representation  has  been  called  a 
mathematical  notation  (11) .   This  form  of  representation 
is  similar  to  the  memorandum  notation  except  that,  in 
addition  to  its  other  characteristics,  each  vehicle  is 
associated  with  its  own  position  indicator.   Its  position 
is  therefore  continuous  within  the  accuracy  of  the 
computer.   At  any  time  a  vehicle's  new  position  can  be 
computed  as  a  function  of  its  last  position,  its  velocity, 
its  acceleration,  and  the  time  increment.   Spacings  between 
vehicles  are' available  from  their  respective  coordinates 
and  the  vehicle  length. 
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A  fully  mathematical  notation  has  generally  been 
avoided  in  the  past  since  it  requires  a  more  complicated 
logic.   Maneuvers,  such  as  turns,  which  must  be  accomplished 
at  a  specified  location  were  deemed  more  difficult  when 
the  vehicle  could  occupy  any  position  at  the  start  of  the 
maneuver.   Furthermore,  the  mathematical  processing  of  the 
vehicles  is  more  complex,  thereby  increasing  the  computer 
time  required.   On  the  other  hand,  the  elimination  of 
limitations  on  the  position  increment  would  allow  some 
increase  in  the  size  of  the  time  increment  for  the  same 
model  accuracy,  and  would  provide  increased  versatility, 
thereby  easing  the  further  application  of  the  model. 

The  SIGNET  model  employs  a  fully  mathematical 
notation.   It  was  felt  that  the  advantages  to  be  realized 
from  a  virtually  continuous  position  vector  outweighted 
the  additional  execution  time  required.   Furthermore,  the 
high  speed  of  the  CDC  6500  computer  somewhat  offset  this 
loss. 

Each  vehicle  in  the  SIGNET  model,  then,  is  completely 
represented  by  the  information  contained  in  four  computer 
words.   Current  position,  current  velocity,  and  current 
acceleration  are  each  individual  words  (POSN,  VEL,  and 
ACCEL  respectively).   The  fourth  word,  ICAR,  contains 


SIGNET  is  the  name  of  the  simulation  model  developed  in 
this  project. 
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information  on  ten  variables,  as  shown  in  Figure  1.   The 
meaning  and  significance  of  each  of  these  will  be  fully 
explained  in  later  sections.   Each  variable  is  easily 
accessed  via  an  unpacking  function. 

In  actuality  all  of  the  drivers  of  vehicles  within 
the  roadway  system  are  continually  and  simultaneously 
making  decisions  and  modifying  their  behavior.   The 
computer,  however,  can  make  only  one  simple  logical  choice 
at  a  time.   In  order  to  control  all  the  occurrences  at  any 
given  instant,  it  must  process  all  decisions  sequentially. 
In  other  words,  it  must  process  each  decision  for  every 
vehicle  in  every  lane,  and  for  each  lane  in  the  system.   It 
must  do  this  in  accordance  with  a  prescribed  sequence  for 
each  instance  of  time  to  be  considered. 

The  selection  of  a  suitable  time  increment  is  most 
important.   If  the  time  increment  chosen  is  too  large,  it 
will  not  be  possible  to  simulate  all  the  events  that  may 
occur.   On  the  other  hand,  if  the  increment  is  too  small, 
many  additional  computations  will  be  required  for  each 
event,  resulting  in  additional  computer  time.   In  SIGNET 
the  increment  must  be  specified  with  the  input. 

In  most  simulations  a  critical  factor  is  the  minimum 
headway  for  vehicles.   That  is,  since  vehicles  may  enter 
the  network  only  at  each  time  increment,  their  minimum 
spacing  will  be  equal  to,  or  some  multiple  of,  this 
increment.   A  method  was  developed  for  this  study  which 
isolated  vehicle  generation  from  the  time  increment. 
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LNKARR=lmk    arnvol    time 

START-  initial    coordinate    at     arrival    on    link 

TVEL=  target     velocity 

JTURN=  turning     movement 

IACC  =  acceleration    type 

I : stopped 

2  =  stopping 

3  =  stopped,  waiting  for  turn 

4  =  stopping    for    turn 

5-  stopping  for  lane  change 
6=  stopped  for  lane  change 
7  =  free-  behavior 

EL=  effective    length 

DECMIN-  minimum    desired    deceleration 

MAXACC-  manmum    desired     deceleration 

VEHTYP=  vehicle   type 
1=  car 
2=  truck 

TRACE  =  vehicle    being    traced     on    travel -time    route 
C=no 


8-car    following 

9:  going    in    delayed    left   turn 

10=  going    in  normal   turn 

11=  slowing    for  turn  (no  conflict) 

12=  stopping    for  red    signal 


yet 


FIGURE      I 
CONTENT    OF    ICAR   WORD 
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Mathematics  of  Vehicle  Behavior 
The  philosophy  on  which  the  SIGNET  model  is  based  is 
relatively  simple  in  principle,  but  involves  complex 
programming  for  its  implementation.   The  basic  premise  is 
that  all  drivers  have  a  target  velocity  at  which  they 
would  prefer  to  travel  if  conditions  meet  certain  minimum 
requirements.   Acting  to  limit  the  driver  in  the  pursuit 
of  his  target  velocity  are  obstructions  generated  by 
interactions  with  other  vehicles  and  the  physical 
environment.   Limitations  encountered  include  leading 
vehicles  moving  at  a  slower  speed,  red  signal  indications, 
turning  movements,  obstructions  to  lane  changes,  and  conflicts 
with  vehicles  from  other  links  at  intersections. 

The  mathematical  relationships  describing  vehicle 
behavior  can  be  divided  into  9  separate  areas :   vehicle 
generation,  vehicle  updating,  car  following,  free  behavior, 
amber  acceptance,  stopping  performance,  queue  discharge, 
lane  changing,  and  turning  performance.   These  relation- 
ships are  presented  below  in  the  order  in  which  they  might 
confront  a  vehicle  being  processed  through  the  network. 
Vehicle  Generation.   Vehicles  are  generated  at  the 
zero  coordinate  of  each  input  link  on  a  per-lane  basis 
through  the  use  of  a  translated  negative-exponential 
distribution.   Traditionally  the  unmodified  negative 
exponential  distribution  has  been  used  to  obtain  inter- 
vehicle  headways.   It  is  of  the  form 
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P(h>t)  =  e"3^ 
where 

P(h^t)  =  probability  of  headway  being  greater 
than  or  equal  to  t;  and 

$      =  vehicle  flow  rate  (veh./sec). 
However,  being  distributed  in  (0,°°),  the  negative-exponential 
does  not  compensate  for  a  minimum  headway  which  of  course 
exists  for  every  vehicle.   Therefore,  as  proposed  by 
Gerlough  (34)  ,  a  better  approximation  would  be  a  negative- 
exponential  with  a  translated  axis: 

-  (t  -  T) 


P(h 


>t,  =  e'1^  "  *> 


where 


t  =  amount  of  translation;  equivalently ,  in  a 
physical  sense,  the  minimum  headway.   (See 
Figure  2) 
Work  by  Dawson  and  Chimini  (10)  in  fitting  the  hyperlang 
probability  distribution  to  intervehicular  headways 
indicates  a  good  value  of  x  (6.  in  their  study)  to  be  0.75 
second.   This  value  would  apply  for  all  flow  rates. 

In  the  SIGNET  model  the  generation  time  is  independent 
of  the  simulation  scan  cycle.   For  each  lane  in  the  network 
a  variable  is  maintained  to  indicate  the  next  arrival  time 
of  a  vehicle  on  that  lane.   This  tally  is  updated  by  the 
translated  negative-exponential  distribution  at  generation 
time  to  indicate  the  exact  arrival  time  of  the  next  vehicle 
in  that  lanei 
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TNEXT  =  TNEXT  +  NEGEXP 
where 

TNEXT   =  time  of  generation  of  the  next  vehicle; 

and 
NEGEXP  =  headway  determined  by  translated  negative- 
exponential  distribution. 
Once  a  vehicle  is  generated  its  position  is  determined 
relative  to  the  link  coordinates.   If  the  rear  of  its 
leader  is  at  a  coordinate  less  than  zero,  the  vehicle  is 
positioned  a  safe  distance  behind  it: 

POSN(J)  =  POSN(J-l)  -  EL(J-l)  -  20. 
Otherwise  the  distance  the  vehicle  will  travel  at  its 
generated  velocity  between  the  exact  current  time  and  its 
generation  time  is  calculated: 

DX1  =  (TNEXT  -  TIME)  •  V 
where 

DXl   =  distance  traveled; 

TIME  =  exact  current  time  (a  multiple  of  the 
scan  cycle) ;  and 
V  =  generated  velocity. 
The  vehicle  is  then  positioned  this  distance  before  the 
zero  coordinate. 

The  new  vehicle's  velocity  is  determined  in  a  way  to 
provide  safety  from  a  collision  condition.   If  the  spacing 
between  it  and  its  leader  is  less  than  100  feet,  its 
velocity  is  a  function  of  both  the  spacing  and  the  relative 
velocities : 
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DX2  =  POSN(J-l)  -  EL(J-l)  -  POSN(J) 


VEL(J)  =  VEL(J-l)  +  DX  •  (TVEL(J)  -  VEL(J-l)) 

100 


where 


DX2     =  intervehicular  spacing;  and 
TVEL(J)  =  target  velocity  of  the  new  vehicle. 
Otherwise  the  velocity  is  set  equal  to  the  newly  generated 
target  velocity.   Under  normal  volume  conditions  the 
previous  model  will  receive  little,  if  any,  use.   It  is 
provided  primarily  to  insure  against  collision  conditions. 

Several  other  descriptors  of  the  vehicle's  behavior 
are  set  at  this  time,  some  stochastically  and  others 
deterministically.   The  vehicle's  target  velocity  (TVEL) , 
minimum  desired  deceleration  (DECMIN) ,  maximum  desired 
acceleration  (ACCMAX) ,  and  effective  length  (EL)  are 
generated  probabilistically  according  to  their  respective 
distributions.   Additionally  the  vehicle  type  (IVEHTYP)  is 
randomly  determined  from  the  link  truck  percentage,  input 
with  the  link  traffic  volume.   The  turning  movement  (JTURN) 
to  be  pursued  at  the  link  head  is  also  determined  randomly 
from  the  link  turning  probabilities.   Finally,  the  link 
arrival  time  (LNKARR)  is  set  to  the  current  time,  and  the 
acceleration  type  (ACCTYP)  is  set  to  free  behavior.   All 
of  the  above  are  then  packed  into  the  ICAR  word  which  was 
previously  described  (Figure  1.). 
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Vehicle  Updating.   The  various  behavior  relationships 
to  be  described  below  yield  only  a  negative  or  positive 
acceleration  rate  which  begins  after  some  reaction  lag  and 
continues  for  the  rest  of  the  scan  cycle.   In  SIGNET  both 
the  reaction  lag  (REACT)  and  the  scan  cycle  (CYCLE)  are 
specified  with  the  input  data. 

A  theoretical  analysis  of  driver  reactions  and  highway 
events  indicates  the  importance  of  driver  reaction  in 
safety  and  highway  design.   Therefore  the  inclusion  of 
this  parameter  is  important  in  achieving  realism  with  the 
model.   In  practice  a  large  variety  of  values  are  used  for 
reaction  time;  the  Traffic  Engineering  Manual  (24),  however, 
recommends  a  time  between  0.75  and  1.0  second  for  design 
purposes  in  urban  traffic.   To  maintain  continuity  with 
the  Carstens  data  (8) ,  used  in  validating  the  queue- 
discharge  model,  a  time  of  0.75  second  is  recommended  for 
use  in  SIGNET. 

Movements  of  vehicles  between  scans  are  computed  by 
adaptations  of  the  equations  of  motion: 

V2  -  VEL(J,I)  +  ACCEL (J, I)  •  REACT 
POSN(J,I+CYCLE)  =  POSN(J,I)  +  VEL(J,I)  •  REACT  +  .5 
•  ACCEL (J, I)  •  REACT2  +  V2  • 
(CYCLE  -  REACT)  +  .5  •  ACCEL ( J, 1+ 
REACT)  •  (CYCLE  -  REACT)2 
VEL(J,I+CYCLE)  =  V2  +  ACCEL (J , I+REACT)  •  (CYCLE- REACT) 
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where 

V2  ■  the  velocity  of  vehicle  J  after 

the  reaction  period; 

REACT  =  the  reaction  time; 

CYCLE  =  scan  cycle; 

POSN(J,I)  and 

POSN( J, I+CYCLE) =  the  position  of  vehicle  J  at  time 

I  and  I+CYCLE,  respectively; 

VEL(J,I)  and 

VEL (J, I+CYCLE)  =  the  velocity  of  vehicle  J  at  time 

I  and  I+CYCLE,  respectively;  and 

ACCEL  (J, I)  and 
ACCEL (J, I + REACT )=  acceleration  of  vehicle  J  at  time 

I  and  I+REACT,  respectively. 

Car  Following.   At  the  heart  of  the  simulation  model 
are  the  free-behavior  and  car-following  relationships. 
Much  of  the  full  spectrum  of  behavior  at  an  intersection 
involves  a  tracking  or  following  process.   An  especially 
important  example  of  this  behavior  is  seen  in  the  case 
of  queue  discharge.   Therefore  the  stimulus-response 
equations  of  car  following  theory  which  were  developed  by 
Herman  and  associates  (21,22)  have  been  used  in  this 
study  to  describe  certain  patterns  of  intersection 
performance . 

Herman's  works  pertaining  to  car  following  theory 
are  highly  valuable  and  apply  directly  to  the  problem  of 
processing  vehicles  in  a  digital  simulation.   With  two 
basic  exceptions  (turning  movements  and  stopping) ,  one  of 
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the  alternative  vehicle  behavior  equations  can  be  used 
to  describe  the  behavior  of  individual  vehicles  within  an 
intersection  system. 

Herman's  equations  have  the  general  form 

response  =  sensitivity  x  stimulus  . 
The  best  specific  equation  of  this  form  Herman  found 
was  (in  the  notation  of  this  study) : 

,        .  _     VEL(J,I)  -  VEL(J+1,I) 
ACCEL (J+1,I+T>  -  aQ  P0SN(JfI)  _  P0SN(j+l,l) 

where 

ACCEL (J+1,I+T)  =  acceleration  of  car  J+l,  the 

follower,  initiated  at  time 

I+T; 

T  =  the  car /driver  lag; 

VEL(J,I)  and 

VEL(J+1,I)     =  the  velocities  of  the  leader 

and  follower,  initiated  at 

time  I ; 

POSN(J,I)  and 

P0SN(J+1,I)     =  the  positions  of  the  leader 

and  follower  initiated  at  time 

I ;  and 

a  =  the  characteristic  speed, 

o 

This  equation  is  termed  the  reciprocal  spacing  model. 
A  steady  state  equation  which  fits  empirical  data 
quite  well  takes  the  form 


q  =  a   K  ln(K./K) 
^    o       j 
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where 

q  =  flow; 

a  =  characteristic  speed; 

K  =  concentration;  and 

K.  =  jam  concentration. 
3 

This  relationship  has  been  successfully  applied  to 
freeway  and  tunnel  flow  successfully  in  the  past,  but 
under  a  specific  intersection  condition  the  equation  is 
especially  pertinent.   This  condition  occurs  during  that 
portion  of  the  green  phase  when  flow  is  maximum.   By 
differentiating  and  setting  dq/dK  =  0,  it  is  found  that 
when  q  approaches  q    ,  K./K  approaches  e.   Thus  by 

choosing  typical  values  for  K.,  related  values  of  q„,„„  and 

3  J c  j  max 

a   can  be  computed.   (It  should  be  noted  that  q„=„  is 
o  max 

analogous  to  saturation  flow;  in  fact,  by  definition, 
these  two  values  are  probably  the  same  thing  for  a  line 
of  straight-through  vehicles.) 

This  relationship  is  directly  related  to  this  work 
due  to  its  compatibility  with  the  model  of  individual 
vehicle  behavior,  the  reciprocal  spacing  model.   The 
characteristic  speed,  a  ,  in  the  steady-state  relation- 
ship is  identical  to  that  in  the  car  following  equation. 
Consequently,  for  any  intersection  it  would  only  be 
necessary  to  measure  maximum  flow  past  the  entry  point 
(for  a  series  of  straight  through  movements  from  a  long 

queue).   Then  a   could  then  be  calculated  and  used  in  the 
o 
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car  following  equation.   It  should  be  understood  that  a 
does  not  correspond  to  the  target  velocity  around  which 
free-flowing  vehicles  center,  but  is  the  typical  speed 
past  the  entry  point  of  vehicles  that  started  as  part  of 
a  long  stationary  queue  once  maximum  flow  has  been  attained, 
Generally  speaking,  passage  through  the  green  of  undelayed 
free-flowing  vehicles  will  not  result  in  maximum  flow. 
Free  Behavior.   Not  all  vehicles  in  a  real  system 
act  as  followers,  however.   An  example  of  such  a  vehicle 
is  the  leader  of  a  queue  being  discharged  from  a  signal. 
In  such  a  case  behavior  can  be  described  by 

ACCEL(J,I+T)  =  K  (TVEL(J)  -  VEL(J,I)) 
where 

ACCEL(J,I+T)  =  acceleration  of  car  J  initiated 
at  time  I+T; 

K  =  proportionality  coefficient; 

TVEL(J)       =  target  velocity  of  car  J;  and 

VEL(J,I)     =  velocity  of  car  J  at  time  I. 
This  equation  is  termed  the  free  behavior  model.   Applying 
the  reciprocal  spacing  model  to  queue  members  and  the  free 
behavior  model  to  queue  leaders  should  result  in  the 
general  relationships  shown  in  Figure  3. 

Response  to  Amber  Signal.   The  decision  to  stop  or 
go  on  amber  is  based  on  probability  distributions  developed 
for  the  TRANS  model  (14).   Data  were  taken  from  the  work 
of  Olson  and  Rothery  (29)  and  Blackman  and  Crawford  (6). 
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SPEED 

AT 

ENTRY 


FIGURE    3 
GENERAL    QUEUE     DISCHARGE    RELATIONSHIPS 
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Results  of  these  studies,  relating  probability  of  stopping 
to  either  distance  or  travel  time  from  the  intersection, 
were  converted  to  deceleration  rates  required  to  stop  at 
the  stop  line.   The  data  were  plotted  on  normal  probability 
paper  and  an  excellent  linear  regression  fit  (R  =  0.967) 
was  determined  by  the  probit  method  (Figure  4). 

The  deceleration  rate  needed  to  stop  at  the  stop 
line  is  computed  by 

2 


Acr  =  VEMJ? 

2  (STOP  -  POSN(J)) 


where 


ACC  =  required  negative  acceleration;  and 
STOP  =  target  stopped  position. 
The  decision  to  stop  or  go  is  made  probabilistically  by 
reference  to  an  amber  decision  probability  table  (Table  1) . 

Stopping  Performance.  Two  types  of  stops  occur  in 
the  model:   (1)  stopping  first  in  line  at  the  intersection, 
and  (2)  stopping  behind  another  stopped  vehicle.   Empirical 
work  at  Ohio  State  University  (35)  indicated  that  the  use 
of  a  constant  deceleration  stopping  model  would  be  quite 
realistic.   They  found  that,  when  given  the  choice, 
drivers  tended  to  decelerate  to  a  stop  at  an  approximately 
constant  rate. 

In  the  SIGNET  stopping  model,  the  parameters  of  a 
minimum  desired  deceleration  rate  are  supplied  and  a  value 
DECMIN(J)  is  randomly  selected  for  each  vehicle  J  at  its 
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TABLE  1 
Amber  Decision  Probability 

Acceleration  Required  to  Stop        Probability 
at  Stop  Line  (ft/sec2) of  Stopping 

-0  to  -0.99  1.000 

-1.00  to   -1.99  0.994 

-2.00  to   -2.99  0.989 

-3.00  to   -3.99  0.982 

-4.00  to   -4.99  0.972 

-5.00  to   -5.99  0.956 

-6.00  to   -6.99  0.935 

-7.00  to   -7.99  0.905 

-8.00  to   -8.99  0.867 

-9.00  to   -9.99  0.820 

-10.00  to  -10.99  0.762 

-11.00  to  -11.99  0.700 

-12.00  to  -12.99  0.624 

-13.00  to  -13.99  0.548 

-14.00  to  -14.99  0.468 

-15.00  to  -15.99  0.390 

-16.00  to  -16.99  0.318 

-17.00  to  -17.99  0.250 

-18.00  to  -18.99  0.190 

-19.00  to  -19.99  0.140 
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generation  time.  For  each  scanning  cycle  the  required 
stopping  rate  for  the  first  vehicle  on  the  approach  is 
computed: 

ACCEL (J, I)  -       VEL(J,I)2 

2  (POSN(J,I)  -  (STOP  +  El)) 

where 

STOP  =  the  position  of  the  stop  line;  and 

El   =  random  normal  stopping  error. 

The  other  terms  have  been  defined  previously. 

When  ACCEL(J,I)  <  DECMIN(J),  the  vehicle  begins 
stopping  at  rate  ACCEL (J, I)  and  continues  to  do  so  until 
zero  velocity  is  reached.   This  approach  tends  to  give 
the  model  added  stability. 

A  similar  model  is  used  for  stopping  behind  another 
vehicle,  with  the  main  difference  being  in  the 
computation  of  the  target  stopped  position.   Vehicles  stop 
at  the  position  of  the  effective  rear  of  the  previously 
stopped  vehicle. 

The  stopping  model  is  not  used  until  the  leader  has 
begun  to  stop.   At  that  time  the  projected  stopped 
position  of  the  leader  is  computed: 

PSL  =  -  VEL(J-1,I)2  +  P0SN(J-1,I) 
2 -ACCEL (J- 1,1) 
where 

PSL  =  projected  stopped  position  of 

leader  ahead  of  vehicle  J; 
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VEL(J-1,I)    =  current  velocity  of  leader  ahead 

of  vehicle  J; 
ACCEL  (J-1,I)  =  current  stopping  acceleration  of 

leader  ahead  of  vehicle  J;  and 
P0SN(J-1,I)   =  current  position  of  leader  ahead 
of  vehicle  J. 
The  target  stopped  position  of  the  vehicle  under 
consideration  is  then  found  by: 

PS  -   PSL  -  EL(J-l) 
where 

PS      =  target  stopped  position  of  vehicle 
J;  and 

EL(J-l)  =  effective  length  of  leader  ahead  of 
vehicle  J. 
The  effective  length  of  a  vehicle  is  equivalent  to  the 
average  stopped  spacing  of  vehicles  stopped  in  queue. 
This  average  stopped  spacing  is  measured  from  the  front 
bumper  of  the  leading  vehicle  to  the  front  bumper  of  the 
following  vehicle,  and  therefore  includes  the  vehicle 
length  and  a  clear  space.   Field  studies  have  shown  that 
EL  has  a  value  of  approximately  22  feet  for  cars  (3,  18, 
26,  34).   In  SIGNET  a  vehicle's  effective  length  is 
determined  probabilistically  at  generation  time  from  the 
parameters  supplied  as  input. 
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The  stopping  acceleration  is  found  similarly  to  the 
case  of  the  first  vehicle  on  the  approach,  discussed  above 
A  secondary  check  is  then  performed  if  the  stopping 
acceleration  is  rejected,  in  which  the  projected  stopping 
acceleration  at  the  next  scan  cycle  is  calculated: 

ACC  =    VEL(J,I+Q2 

2  (POSN(J,I+C)  -  PS) 

where 

ACC         =  projected  stopping  acceleration 

at  time  I+C; 
C  =  time  interval; 

VEL(J,l+c)   =  projected  velocity  of  vehicle  J 

at  time  I+C; 
P0SN(J,I+C)  =  projected  position  of  vehicle  J 

at  time  I+C;  and 
Ps  =  target  stopped  position  of  vehicle 

(same  value  as  was  computed 
previously) . 
Studies  have  shown  that  deceleration  rates  of  8  to  9 
feet  per  second  are  comfortable  while  rates  up  to  16  feet 
per  second  per  second  can  be  used  without  severe  dis- 
comfort to  the  driver  (19,39).   For  use  in  this  stopping 
model  a  maximum  desired  deceleration  rate  of  10  feet  per 
second  per  second  was  chosen.   The  projected  stopping 
acceleration  rate  calculated  above  is  compared  to  this 
value;  if  it  is  more  severe,  the  previously  calculated 
stopping  acceleration  is  accepted  and  the  vehicle  begins 
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to  stop.   Otherwise  it  continues  with  zero  acceleration. 

Queue  Discharge  Performance.   As  in  the  stopping 
model,  two  types  of  vehicle  action  occur  during  queue 
discharge:   (1)  starting  from  first  in  line  at  the 
intersection,  and  (2)  starting  behind  another  vehicle. 
The  first  vehicle  in  line  uses  a  modification  of  the  free- 
behavior  equation 

ACCEL(J,I+T)  =  K  (TVEL(J)  -  VEL(J,I)) 
The  terms  of  the  equation  have  been  defined  previously. 

Work  by  Cars tens  (8)  in  the  area  of  queue  discharge 
revealed  the  average  starting  delay  for  the  first  vehicle 
in  queue  to  be  0.35  seconds.   Accordingly  this  value  is 
used  for  T  (the  car/driver  lag)  in  the  above  free  behavior 
equation.   When  the  first  vehicle  discharging  from  the 
queue  is  not  being  considered  or  when  the  vehicle  is 
already  underway  T  reverts  to  the  original  value  found  in 
the  input  data. 

The  original  starting  model  for  following  vehicles 
used  a  simple  application  of  the  reciprocal  spacing  model 

ACCEL (J+l  I+TM  -  a     VEL(J,I)  -  VEL(J+1,I) 
ACCEL (J+1,I+T)  -  aQ   p0SN(j,l)  -  POSN(j+l,l) 

This  version  of  the  model  was  very  dependent  on  the 
simulation  time  interval,  however,  since  the  state  of  the 
queue  could  only  be  checked  once  every  scan  cycle. 
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In  reality,  the  driver  is  continuously  analyzing  his 
relationship  to  his  leader.   To  approximate  this  behavior 
in  the  queue  discharge  model  the  leader- follower  relation- 
ship is  examined  1  second  after  the  leader  beings  moving, 
and  the  follower's  movement  is  begun.   In  this  way  a  1 
second  delay  results  which  would  adequately  account  for 
the  car/driver  lag,  and  the  starting  model  is  kept 
independent  of  the  simulation  time  interval. 

Independent  studies  by  Greenshields  (17,18),  Carstens 
(8),  and  Bartle  et  al  (2)  have  resulted  in  estimates  of 
both  starting  delay  and  succeeding  time  spacings  between 
vehicles  discharging  from  a  queue  (Table  2) .   The  variation 
in  these  estimates  can  be  at  least  partially  accounted 
for  by  the  known  influence  of  intersection  geometries  on 
capacity.   The  SIGNET  starting  model,  shown  in  Figure  5 
with  95%  confidence  intervals  for  50  iterations,  shows 
good  agreement  with  the  other  studies,  even  though 
confidence  intervals  were  not  reported  with  them. 

Lane  Changing.   Lane  change  maneuvers  associated  with 
passing  are  not  allowed  in  the  SIGNET  model.   This 
restriction  is  not  unrealistic  since  it  is  presumed  that 
in  most  urban  situations  traffic  volumes  are  high  enough 
to  greatly  reduce  the  desire  for  such  maneuvers.   Lane 
changes  associated  with  turning  movements  are  permitted, 
however,  since  quite  often  the  lane  from  which  a  vehicle 
wishes  to  turn  is  different  from  that  in  which  it  entered 
the  link. 
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Once  it  is  determined  that  geometric  conditions  (i.e. 
existence  of  the  new  lane,  a  consideration  with  turning 
pockets)  allow  a  change,  a  changing  zone  is  defined  in 
the  new  lane.   The  front  coordinate  of  this  zone  is 
calculated  by: 

XF  =  POSN(J)  +  EL  +  SPACE 
where 

XF      =  the  front  coordinate  of  the  change 

zone  ; 
POSN(J)  =  the  current  position  of  vehicle  Jf  the 

vehicle  under  consideration; 
EL      =  the  average  effective  length;  and 
SPACE   =  the  minimum  allowable  spacing,  equal 

to  one  half  of  the  vehicle's 

velocity  (in  m.p.h.). 
The  rear  coordinate  of  the  change  zone  is  defined  by: 

XR  =  POSN(J)  -  EL  (J) 
where 

XR    =  the  rear  coordinate  of  the  change  zone; 

and 
EL (J)  =  the  effective  length  of  vehicle  J. 
(See  Figure  6) . 
If  another  vehicle  is  in  this  change  zone,  the  change  is 
rejected. 
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FIGURE    6. 
CHANGE    ZONE    DEFINITION 


In  the  absence  of  such  conflict  the  potential  lane 
changer  determines  the  expected  travel  time  to  the  change 
zone  of  the  next  vehicle  in  the  new  lane,  based  on  its 
current  position  and  velocity.   This  travel  time  is 
defined  as  the  lane  change  lag.   The  decision  to  change 
or  not  change  is  then  made  probabilistically  by 
reference  to  a  lane  change  lag  acceptance  table,  Table  3. 
This  distribution  is  taken  from  the  TRANS  model  (14). 
(See  Figure  7) . 

If  the  lane  change  is  rejected  the  vehicle  begins 
slowing  at  a  rate  equal  to  twice  the  vehicle's  minimum 
desired  acceleration.   Occasionally,  especially  under 
high  volume  conditions,  a  hangup  could  result  when  two 
potential  lane  changers  stop  in  each  other's  change  zone. 
To  avoid  this,  the  vehicle  in  the  left  lane  adjusts  its 
stopping  rate  to  stop  behind  the  other's  change  zone 
through  the  following  series  of  computations: 

PFADJ  =  POSN(K)  -  i   ^*>'K)) 

PFLZN  =  PFADJ  -  10.  -  EL(K) 

2 


where 


ACCEL  m  -  -    VEL(J) , 

ACCEL (J)  -    2  (PFLZN  -  POSN  (j) ) 


J     =  vehicle  in  left  lane; 
K     =  conflicting  vehicle  in  right  lane; 
PFADJ  =  projected  final  position  of  vehicle  K; 
and 


39 


TABLE  3 
Lane  Change  Decision  Probability 

Probability 
of  Acceptance 

0 
0 
0 
0 

0.090 
0.180 
0.310 
0.490 
0.660 
0.810 
0.900 
0.960 
0.985 
0.995 
0.999 
1.000 
1.000 
1.000 
1.000 
9.5    to    10.0  1.000 
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PFLZN  =  projected  final  rear  coordinate  of 

vehicle  K's  change  zone;  equivalently , 
the  target  stopped  position  of  vehicle 
J.   (See  Figure  8) . 
The  other  terms  have  been  defined  previously. 

Turning  Performance.   Vehicles  which  desire  to  turn 
left  or  right  at  the  intersection  must  at  some  point 
cease  operating  under  the  stimulus-response  model  and 
undertake  an  independent  fixed  turning  schedule. 

The  principal  requirement  is  that  vehicles  must  not 
exceed  a  certain  maximum  speed  during  the  turn.   Maximum 
turning  velocity  is  related  to  turning  radius  and  side 
friction  by  the  equation 


VTURN  =   "ffgr  ' 
where 

VTURN  =  maximum  turning,  ft. /sec; 

f     =  coefficient  of  friction; 

r     =  turning  radius;  and 

g     =  acceleration  of  gravity. 
The  AASHO  Policy  on  Geometric  Design  of  Rural  Highways  (1) 
indicates  that  the  95-percentile  turning  speed  is 
associated  with  side  friction  f  =  0.3  for  medium  to  low- 
speed  turns.   Therefore, 

VTURN  =  "^0.3  (32.2)  r  =  "(9.66  r  ' 
where  VTURN  is  in  feet  per  second  and  r  is  in  feet.   Thus 


4? 


CO 


"     a. 

CO      0 
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right-turn,  free  left-turn,  and  delayed  left-turn  radii 
are  supplied  as  input  data  and  the  maximum  speeds 
associated  with  these  radii  are  computed. 

As  a  turning  car  approaches  the  intersection  it  is 
scanned  at  each  simulation  cycle,  and  if  the  current 
velocity  is  greater  than  maximum  turning  velocity,  the 
deceleration  rate  required  to  reach  maximum  turning 
velocity  exactly  at  the  start-turn  point  is  computed. 
For  example,  for  a  right  turner, 

_    VTURN2  -  VEL(J,I+T)2 
AluUiUrJ.-Mj  •-  2  (BEGINPT(RT)  -  POSN(J,I+T)) 

where 

BEGINPT(RT)  =  start  right  turn  position;  and 
VTURN       =  maximum  right-turn  velocity. 
The  other  terms  have  been  defined  previously. 

When  ACCEL  (J,  I)  <_  DECMIN(J),  the  vehicle  begins 
slowing  to  maximum  turning  velocity  at  rate  ACCEL(J,I), 
as  in  the  stopping  model.   It  continues  to  do  so  until 
reaching  the  start  turn  position,  unless  affected  by  more 
stringent  conditions.   Maximum  turning  speed  is  maintained 
throughout  the  turn,  whereupon  the  vehicle  resumes 
behavior  under  one  of  the  stimulus-response  models  (car- 
following  or  free-behavior) ,  whichever  is  more  stringent. 

The  foregoing  discussion  does  not  imply  that  all 
vehicles  will  make  their  turns  at  maximum  speed.   Some 
will  be  affected  by  other  vehicles  in  queue  or  vehicles 
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on  the  receiving  link  so  that  their  turns  will  be  made  at 
considerably  lower  speeds.   However,  none  will  exceed 
maximum  turning  speed. 

Left-turns  are  subject  to  further  complications 
because  they  must  be  made  across  the  path  of  opposing 
traffic.   The  driver  must  decide  if  gaps  and  lags  in  the 
opposing  approach  traffic  are  sufficiently  large  to  be 
accepted.   In  this  model,  when  a  left-turning  driver 
crosses  the  start-free-left-turn  position,  a  decision  is 
made  to  either  accept  or  reject  a  time  lag  (i.e.,  the 
time  required  for  the  first  straight-through  vehicle  on 
an  opposing  approach  to  reach  the  center  of  intersection 
conflict  point) .   This  lag  is  computed  by 

V  =  VEL(K)   +  2  •  ACCEL (L)  •  (CENTER  -  POSN(K)) 

DT  =   (VEL(K)  -  V) 
ACCEL (K) 

where 

K      =  opposing  vehicle; 

CENTER  =  coordinate  of  center  of  intersection; 

V  =  projected  velocity  of  vehicle  K  at 

CENTER;  and 
DT     =  time  lag. 
The  other  terms  have  been  defined  previously. 

The  decision  to  accept  or  reject  the  time  lag  is 
made  probabilistically  by  reference  to  a  left-turn  lag 
acceptance  table  (Table  4  and  Figure  9).   If  the  lag  is 
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Lag  or  Gap 
Size  (Sec.) 

0 

to 

0.5 

0.5 

to 

1.0 

1.0 

to 

1.5 

1.5 

to 

2.0 

2.0 

to 

2.5 

2.5 

to 

3.0 

3.0 

to 

3.5 

3.5 

to 

4.0 

4.0 

to 

4.5 

4.5 

to 

5.0 

5.0 

to 

5.5 

5.5 

to 

6.0 

6.0 

to 

6.5 

6.5 

to 

7.0 

7.0 

to 

7.5 

7.5 

to 

8.0 

8.0 

to 

8.5 

8.5 

to 

9.0 

9.0 

to 

9.5 

9.5 

to 

10.0 

TABLE  4 
Left-Turn  Decision  Probability 


Probability  of 

Probability  og 

Accepting  Lag 

Accepting  Gap 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0.030 

0.150 

0.124 

0.320 

0.300 

0.520 

0.530 

0.690 

0.730 

0.820 

0.860 

0.900 

0.940 

0.950 

0.970 

0.970 

0.990 

0.986 

0.996 

0.993 

0.999 

0.997 

1.000 

0.998 

1.000 

0.999 

1.000 

1.000 
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acceptable  the  vehicle  continues  through  the  turn,  never 
exceeding  maximum  free-turning  velocity.   If  the  lag  is 
rejected,  the  vehicle  immediately  begins  stopping  at  the 
constant  rate  required  to  stop  at  the  left- turn  waiting 
point,  one  quarter  of  the  way  through  the  delayed  turn. 
Thereafter,  the  driver  views  each  time  gap  appearing  in 
the  opposing  traffic  and  determines  its  acceptability  by 
reference  to  the  left-turn  gap  acceptance  probability 
table.   If  acceptable,  the  vehicle  negotiates  a  delayed 
left-turn,  never  exceeding  maximum  delayed- turning  velocity, 
It  is  possible,  due  to  the  use  of  random  numbers  in  the 
model  structure,  that  a  waiting  vehicle  will  at  some 
point  accept  a  short  gap  which  it  would  have  previously 
rejected.   Such  behavior  is  not  unrealistic,  since  in 
actuality  a  degree  of  impatience  often  bears  upon  such  a 
decision. 

The  log-normal  probability  distributions  for  gap  and 
lag  acceptance  were  taken  from  the  TRANS  model  (14) .   They 
were  developed  from  data  supplied  by  James  H.  Kell. 

The  exact  logic  employed  in  processing  left-turn 
vehicles  is  considerably  more  complex  than  would  be 
inferred  from  the  above  discussion,  principally  due  to 
the  fact  that  other  behavior  conditions  (such  as  stopping 
in  queue)  may  supercede  the  standard  left-turn  schedule 
and  decisons. 


In  the  above  sections  the  basic  mathematical 
relationships  governing  an  individual  vehicle's  behavior 
were  presented.   The  next  chapter,  Chapter  III,  is 
concerned  with  the  logic  which  employs  these  relationships 
in  processing  a  vehicle  through  the  network. 
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CHAPTER  III 
WORKING  DETAILS  OF  THE  SIMULATION  MODEL 

The  original  purpose  of  SIGNET  was  to  evaluate  the 
effect  of  traffic  signal  settings  on  traffic  flow  in  a 
region  of  a  city.   Thus  SIGNET  is  a  tool  which  helps  to 
optimize  the  timing  of  traffic  signals  in  a  street  network 
Alternatively  SIGNET  may  be  used  to  study  the  effect  of 
other  network  modifications  including:   geometric  design 
changes,  such  as  additional  turning  lanes;  traffic 
regulation  changes,  such  as  turning  movement  and  parking 
prohibitions;  and  changes  in  the  magnitudes  and  patterns 
of  traffic  demands. 

In  the  SIGNET  model  a  traffic  network  is  considered 
to  consist  of  a  set  of  links.   Each  link  carries  traffic 
in  one  direction  between  two  signalized  intersections. 
Links  are  of  three  types:   input,  network ,  and  output. 
An  input  link  feeds  traffic  into  the  network;  a  network 
link  carries  traffic  from  one  node  (i.e.  signalized 
intersection)  in  the  interior  of  the  network  to  another; 
and  an  output  link  removes  traffic  from  the  network. 

For  identification  purposes  each  link  is  assigned 
a    positive  integer.   Input  links  are  numbered 


50 


1 , 2 , 3, . . . ,nT ;  network  links  are  numbered  (nT+l) ,  (nT+2), 
. . . , (nT+nN) ;  and  output  links  are  numbered  (nT+n„+l) , 
(n+n+2 ),...,  (nT+n  +nn).   Because  a  digital  computer 
can  perform  only  one  operation  at  a  time,  it  is  necessary 
for  the  simulation  program  to  process  each  vehicle 
sequentially.   In  the  SIGNET  model  this  sequence  is 
ordered  by  link  number,  with  the  vehicles  within  the  link 
being  processed  from  the  link  head  to  tail. 

Special  care  should  be  taken  in  numbering  the  links 
so  that  all  links  feed  lower  numbered  links  (i.e.  links 
which  have  already  been  processed) .   This  is  quite  easy 
to  accomplish  in  open  networks,  such  as  single  arterials. 
Closed  networks  are  more  difficult,  however,  and  in  most 
cases  the  number  of  links  feeding  higher  numbered  links 
can  only  be  minimized.   These  cases  should,  wherever 
possible,  be  confined  to  low  volume  locations  to  minimize 
their  effect.   Additionally,  the  SIGNET  model  employs 
supplementary  logic  to  make  the  processing  of  such  cases 
more  accurate. 

Each  link  (input  type  or  network  type)  has  a  traffic 
signal  associated  with  it.   The  signal  appears  at  the 
head  of  the  link,  and  may  take  on  any  of  the  14  indications 
shown  in  Table  5.   Only  one  of  these  may  be  on  at  any 
given  time. 

The  characteristics  of  each  link  in  the  network  must 
be  supplied  to  the  program  as  input.   Physical 
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TABLE  5 

Signal  Indications 

Number 

Indication 

Movements  Permi 

.tted 

1 

Red 

None 

2 

Green 

all 

3 

Green 

Arrow  Straight 

#3, 

#4 

4 

Green 

Arrow  Left 

#6 

5 

Green 

Arrow  Right 

#1 

6 

Green 

Arrow  Diagonal  Left 

#5 

7 

Green 

Arrow  Diagonal  Right 

#2 

8 

Green 
Green 

Arrow  Straight, 
Arrow  Left 

#3, 

#4, 

#6 

9 

Green 
Green 

Arrow  Straight, 
Arrow  Right 

#1, 

#3, 

#4 

10 

Green 
Green 

Arrow  Straight, 
Arrow  Diagonal  Left 

#3, 

#4, 

#5 

11 

Green 
Green 

Arrow  Straight, 
Arrow  Diagonal  Right 

#2, 

#3, 

#4 

12 

Green 
Green 

Arrow  Left, 

Arrow  Diagonal  Left 

#5, 

#6 

13 

Green 
Green 

Arrow  Right 

Arrow  Diagonal  Right 

#1, 

#2 

14 

Amber 

all 
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characteristics  are  defined  through  the  use  of  PRESIG, 
the  preliminary  geometry  determination  program,  which 
converts  easily  obtained  geometry  data  to  the  required 
inputs  of  SIGNET.   A  full  description  of  this  program 
follows.   Other  link  inputs  include  probabilistic 
characteristics  pertaining  to  arrival  and  departure  of 
vehicles  and  traffic  signal  characteristics  which  define 
the  timing  for  each  of  the  signal  modes.   Additionally, 
vehicular  arrival  rates  are  required  for  input  links. 

A  simulation  run  is  divided  into  two  major  parts: 
fill  time  and  observe  time.   During  fill  time  traffic  is 
generated  on  the  input  links  and  pumped  into  the  network 
until  a  stable  condition  is  reached;  this  serves  to 
create  an  initial  network  population.   Generally  a  15 
minute  fill  time  should  be  adequate,  although  this  should 
be  somewhat  dependent  on  network  size  and  configuration 
and  magnitude  of  traffic  flow.   At  the  end  of  fill  time 
appropriate  initializations  are  performed  and 
observation  begins. 

Simulation  is  carried  out  in  discrete  time  intervals. 
During  each  simulation  cycle  four  major  operations  are 
performed:   (1)  vehicles  are  generated  on  the  input  links; 
(2)  vehicles  are  advanced  within  each  link  as  conditions 
allow;  (3)  vehicles  are  moved  from  the  front  of  their 
link  to  the  rear  of  the  receiving  link  at  signalized 
intersections;  and  (4)  bookkeeping  operations  are 
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performed.   The  bookkeeping  operation  records  or  summarizes 
all  movements  and  delays.   These  data  provide  the  various 
statistics  that  are  of  significance  to  the  traffic 
engineer,  such  as  vehicle-miles  travelled,  average 
attained  speeds,  densities,  and  volumes. 

A  variety  of  options  are  available  in  the  use  of 
SIGNET.   For  purposes  of  travel  time  testing  or  for  more 
detailed  analysis,  a  route  may  be  designated  through  the 
network.   A  frequency  analysis  of  travel  times  is  then 
printed  for  each  link  on  this  route  whenever  a  normal 
summary  occurs.   Similarly,  a  frequency  analysis  of  queue 
lengths  may  be  specified  on  up  to  15  links.   Turning 
probabilities,  link  input  volumes,  and  truck  percentages 
may  each  be  reset  up  to  10  times  in  the  course  of  one  run. 
Primarily  for  debugging  purposes,  a  full  printout  of  all 
vehicles'  positions,  velocities,  accelerations,  and  other 
pertinent  data  may  be  requested  for  any  period  of  time. 
Finally,  up  to  15  complete  summaries  of  flow  statistics 
may  be  specified  at  any  time  during  the  observation  time. 

Geometric  Configuration 
The  roadway  is  not  represented  physically,  as  such, 
in  the  computer.   However,  it  is  necessary  to  specify 
certain  roadway  references  in  order  to  make  meaningful 
the  positions  of  vehicles  contained  in  the  POSN  word. 
Thus  there  is  a  need  for  a  coordinate  system  in  which 
vehicles  operate.   Consider  the  sketch  (Figure  10)  of  a 
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ZERO  -     zero  coordinate 
DBNDRY=    discharge    boundary 


FIGURE    10 
A  SIMPLIFIED   LINK    PAIR 


ZER0  =   zero   coordinate 

C:  compensation  for 
unequal  discharge 
boundaries 


FIGURE    II 
COMPENSATION     FOR    UNEQUAL    DISCHARGE     BOUNDARIES 
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simplified  pair  of  links.   The  zero  coordinate  of  each 
link  is  taken  to  be  the  point  where  all  contributing 
turning  movements  are  complete.   In  turn,  the  end  of  the 
link,  or  discharge  boundary,  is  the  point  where  all  other 
contributing  movements  to  the  receiving  link  are  complete. 
In  reality  there  could  be  several  contributing  movements 
at  the  tail  (i.e.  zero  coordinate)  of  the  link,  each 
ending  at  a  different  point.   It  would  be  necessary  to 
figuratively  add  a  tangent  section  to  each  except  the 
longest,  thereby  making  all  end  at  the  same  point  (Figure 
11). 

There  are  a  total  of  8  possible  movements  at  the 
head  of  a  link  (Figure  12).   Of  these,  any  6  may  be  used 
for  each  link  within  the  structure  of  SIGNET.   These  six 
movements  are  numbered  in  a  counter-clockwise  order,  as 
they  would  confront  a  vehicle  approaching  the  intersection, 
Movements  to  the  right  of  straight-through  are  denoted 
1  and  2;  if  only  one  exists,  it  is  always  denoted  1. 
Straight-through  movements  in  lane  1  and  lane  2  are 
denoted  3  and  4,  respectively.   The  distinction  is 
necessary  to  facilitate  the  use  of  lane  distribution 
probabilities.   Movements  to  the  left  of  straight-through 
are  numbered  5  and  6;  if  only  one  exists,  it  is  always 
denoted  6.   Several  common  intersection  types  are  shown 
in  Figure  13  with  movement  numbers  illustrating  this 
convention. 
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FIGURE  12 

LEGAL     TURNING      MOVEMENTS 


^ 
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^ 


FIGURE         13 
SAMPLES    OF    TURNING    MOVEMENT    COMBINATIONS 
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Two  types  of  left  turn  are  possible:   free  flowing, 
with  radius  RADIUS (FLT) ,  and  delayed,  with  radius 
RADIUS (DLT).   Thus  there  nine  possible  contributing 
movements  which  must  be  considered  in  the  determination 
of  the  zero  coordinate  (see  Figure  14).   Straight-through 
movements  are  not  considered  in  this  respect  because 
their  length  is  not  critical. 

The  first  step  in  tying  down  the  network  geometry 
is  to  determine  for  each  link  the  location  of  the  zero 
coordinate  relative  to  the  center  of  the  contributing, 
or  tail,  intersection.   Referring  to  Figures  11,  14,  and 
15,  the  following  equation  can  be  written: 

ZERO  =  MAX  (DB0(1),  DB0(2),  ...,DB0(9)) 
where 

ZERO   =  distance  from  the  center  of  the  tail 
intersection  to  the  zero  coordinate; 
MAX    =  the  maximum  of  the  following  terms;  and 
DBO(I)  =  the  required  discharge  boundary  offset 
for  each  contributing  movement  I ,  as 
derived  in  Figure  15. 
If  a  movement  does  not  exist  within  a  given  intersection, 
DBO  for  that  movement  is  automatically  zero. 

Once  the  offsets  have  been  calculated  for  all  links, 
the  stop-line  and  the  center  of  the  receiving  intersection 
may  be  redefined  relative  to  the  zero  coordinate,  leaving 
the  way  clear  to  compute  the  beginning  of  turn  points  and 
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discharge  boundaries  for  each  link.   Referring  to  Figure 
16 ,  the  beginning  of  turn  point  is  computed  by  the  general 
equation 

BEGINPT  =  COI  -  RADFACT 
where 

BEGINPT  =  beginning  of  turn  point; 

COI  =  redefined  center  of  intersection;  and 
RADFACT  =  a  radius  factor,  dependent  on  the 

radius  of  the  turning  movement,  link 
widths,  and  parking  lane  width.   It 
is  defined  in  Figure  16  for  the 
various  turning  movement  types. 
The  accompanying  discharge  boundary  may  also  be  computed, 
using  the  general  equation 

DBNDRY  =  BEGINPT  +  LTURN  +  (ZERO(N)  -  DBO(NT)) 

DBNDRY  =  discharge  boundary  for  turning 

movement; 
LTURN   =  length  of  turn,  calculated  from 

radius  and  angle  of  turn; 
ZERO(N)  =  maximum  discharge  boundary  offset  of 

receiving  link  N;  and 
DBO(NT)  =  discharge  boundary  offset  of  turn 

under  consideration,  NT. 


where 
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COI 


BEGINPT 


COI 
BE6INPT  • 


BEGINFT  =    COI  -  DBO(  I  ) 
OBNDRY  =   BEGINPT  +  3/4  IT(RADIUS)  + 
(ZERO-DBO(I)) 

la) 


/o 

'  A  =W(N)/2 -WIDTH/2 
-PARKW(N) 


BEGINPT 


RADIUS 


BEGINPT  =  COI- 

RADIUSdAN^i3)) 
-A(TAN(22.5°)) 


DBNDRY =  BEGINPT  t  TT/4(RADIUS)+(ZERO-DB0(3)) 


(C) 


LINKN 


COI 


BEGINPT 


ZLBO_ 


"Gr- 

RADIUS 


LINK  N 


Ta 


A=PARKW(N)  ♦  WIDTH/2 
BEGINPT   =   COI-  RADIUS  -  (W(N)/2-A) 
DBNDRY  =  BEGINPT  1- tt/£  (RADIUS)  +  (ZERO  - 
DBO(2)) 
(b 


A  =  W(N)/2-PARKW(r\ 

-WIDTH/2 

xRAPUfi 

BEGINPT  =  COI  - 

RADIUS(TAN(22.S: 
«V2~A 

DBNDRY=  BEGINPT+1T/4  (RADIUS) 
+  (ZER0-DB0(4,5) 


COI 


BEGINPT 


A  =  (W(N)/2  -  WIDTH/2  -  PARKW(N ) ) 
BEGINPT  =  COI  -  RADIUS  +  A 
DBNDRY:  BEGINPT+  3TT/4  (RADIUS) 
+(ZER0-DB0(6,7)) 

(e) 


A  =  W(N)/2-  WIDTH/2  -  PARKW(N) 
BEGINPT  =  COI -DB0(8,9)  +  i/2~  A 
DBNDRY  =  BEGINPT  *  31T/4 (RADIUS) 
+  (ZER0-DB0(8,9) 

(f) 


FIGURE   16 
DISCHARGE     BOUNDARY    COMPUTATIONS 
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Individually  the  above  computations  are  quite 
simple.   When  performed  for  an  entire  network,  however, 
they  can  become  quite  tedious  and  awkward.   To  resolve 
this  difficulty  the  program  PRESIG  was  developed  as  a 
companion  to  SIGNET.   Its  function  is  to  compute  a 
complete  set  of  geometry  data  ready  for  input  to  SIGNET, 
based  on  easily  acquired  measurements  from  the  network. 
This  is  accomplished  by  following  the  general  computational 
procedure  outlined  above. 

For  purposes  of  discussion  the  logic  of  PRESIG  may 
be  divided  into  3  areas  as  shown  in  Figure  17.  Region  I 
contains  the  primary  input  and  initialization  functions. 
Included  in  the  input  block  is  the  verification  of  the 
input  data,  primarily  achieved  through  checking  card  types 
and  link  numbers.   Additional  means  for  verification  are 
obtained  by  printing  out  all  input  data. 

Region  II  is  concerned  with  the  computations 
demonstrated  on  pages  57  through  6  3.   The  final  product 
of  this  series  is  a  tentative  set  of  discharge  boundaries 
and  begin-turn  points  for  each  link. 

In  Region  III  this  tentative  set  is  compared  to 
revised  discharge  boundaries  and  begin-turn  points  which 
are  read  from  the  input  data.   Any  differences  are 
changed  to  agree  with  the  revised  values.   This  option 
is  provided  to  enable  the  user  to  easily  correct  any 
discrepancies  which  may  arise  between  the  PRESIG  output 
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and  the  actual  conditions.   The  final  function  of  PRESIG 
is  to  output,  both  on  the  line  printer  and  card  punch, 
all  the  geometry  data  needed  for  input  to  SIGNET. 

A  full  description  of  the  inputs  to  PRESIG  and  a 
listing  of  the  PRESIG  program  code  is  provided  in 
Appendix  A. 

The  output  from  PRESIG  is  in  two  forms;   printed 
and  punched.   Each  form  includes  all  the  geometry  data 
required  for  input  to  SIGNET;  the  punched  output  there- 
fore may  be  used  directly  as  a  portion  of  the  SIGNET 
input  deck. 

The  following  variables  are  output  for  each  link: 
STPLINE  ■  coordinate  of  the  stop  line; 
XLINKj,j=l,3  =  len9th  of  each  lane,  j  ; 
DBNDRY_=1^6  =  discharge  boundary  for  each 

turning  movement ,  j ; 
BEGINPT^^g  =  beginning  point  of  each  turn, 

j  ;  and 
RADJ/J=l/6  =  radius  of  each  turn,  j. 

SIGNET  Program  Structure 
The  SIGNET  program  consists  of  a  set  of  33  nested, 
closed  subroutines.   The  program  is  modular  in  construction, 
making  it  easy  to  insert  new  routines  or  modify  existing 
ones. 
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The  structure  of  the  SIGNET  program  is  shown  in 
Figure  18.   It  is  seen  that  2  8  routines  occupy  a  fixed 
place  in  the  program  structure,  while  5  routines  serve 
auxiliary  functions  which  are  called  upon  at  various 
places  in  the  program.   All  routines  are  written  in 
FORTRAN  IV  for  operation  under  the  MACE  operating  system 
on  the  CDC  6500  computer.   A  complete  listing  of  the 
SIGNET  program  code  and  a  full  description  of  all  inputs 
are  given  in  Appendix  B. 

Tasks  performed  by  the  main  program  SIGNET  include : 

1.  Input  of  all  program  data,  program  instructions, 
and  link  data,  followed  by  formatting  and  writing  of 
these  data. 

2.  Primary  initializing  tasks,  which  include 
initializing  all  variables  not  connected  with  the 
statistical  summary. 

3.  Activation  of  the  traffic  data  input  and 
initialization  routines  (INITRN  and  INIVOL)  at  the  proper 
times  as  expressed  on  the  program  instruction  cards. 

4.  Maintenance  of  the  time  loop,  which  includes 
control  over  the  simulation  time  cycle  and  proper 
calling  of  the  vehicle  generation,  vehicle  update,  and 
interlink  transfer  routines. 

5.  Program  termination,  which  entails  calling  the 
final  summary  routine  and  writing  final  counts. 

The  Main  Program  Chain  is  shown  in  Figure  19. 
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In  the  following  paragraphs  descriptions  are  given 
of  the  major  routines.   The  subroutine   flow  charts  are, 
for  the  most  part,  verbal,  and  in  some  instances  have 
been  generalized  to  a  minor  degree  to  enhance  rapid 
understanding . 

Secondary  Initialization  (INIT) .   This  routine 
performs  the  initialization  tasks  necessary  after  fill- 
time  has  been  completed  in  order  to  prepare  for  observe 
time.   It  is  also  used  when  reinitialieation  is  called 
for  at  other  times  in  the  program  (see  Appendix  B) . 
Bookkeeping  minimum  values  are  reset  to  large  numbers 
and  counters,  sums,  sums  of  squares,  and  maximum  values 
are  cleared. 

Turning  Probability  Input  and  Initialization  (INITRN) , 
In  addition  to  reading  the  turning  probabilities  for  each 
network  and  input  link  this  routine  initializes  various 
variables  associated  with  them.   A  full  description  of  the 
inputs  is  given  in  Appendix  B. 

Traffic  Volumes  Input  and  Initialization  (INIVOL) . 
After  reading  the  input  volumes  and  truck  percentages  for 
each  input  link  the  lane  flow  rates,  in  vehicles  per 
second,  are  set.   Flow  rates  for  short  lanes  (i.e.  turning 
pockets)  are  set  to  zero. 

Vehicle  Printout  (DEFINE) .   &s  detailed  in  Appendix 
B,  a  complete  printout  of  each  vehicle's  position, 
velocity,  acceleration,  acceleration  type,  and  turning 
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movement  during  each  cycle  may  be  specified.   This  routine 
unpacks  the  ICAR  word,  prepares  the  applicable  variables, 
and  writes  them  on  the  output  file  when  called  by  the 
main  program  SIGNET. 

Vehicle  Generation  (INPLINK).   This  routine  generates, 
on  a  per-lane  basis,  each  vehicle  and  its  associated 
parameters;  the  generation  time  of  the  next  vehicle  on 
the  lane  is  then  determined.   The  flowchart  is  shown  in 
Figure  20. 

Vehicle  Update  (UPDATE) .   This  routine  (see  Figure 
21)  determines  the  applicability  of,  and  controls  the 
transfer  to,  the  subsidiary  behavior  routines;  namely, 
lane  change,  general  behavior,  amber  decision,  red 
approach,  right-turn,  and  left-turn.   Additionally  it 
controls  the  use  of  the  signal  update  and  bookkeeping 
routines.   Based  on  the  acceleration  determined  in  the 
applicable  behavior  routine,  it  calculates  the  vehicle's 
velocity  and  position. 

Laiye  Change  (CHANGE)  .   This  routine  (see  Figure  22) 
determines  for  each  lane  if  a  potential  lane  changer 
exists,  computes  the  size  of  the  lane-change  lag,  and, 
by  a  random  process,  determines  its  acceptability.   As 
appropriate,  the  vehicle  is  moved  to  the  new  lane  and 
list  modifications  performed. 

Traffic  Signal  Update  (SIGNAL) ♦   This  routine  (see 
Figure  2  3)  returns  the  current  signal  indication  for  the 
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lane  under  consideration.   It  is  therefore  called  once 
for  each  lane  in  the  network  each  scan  cycle.   In  its 
current  implementation  the  routine  will  operate  only  in 
the  fixed-time  mode. 

Amber  Decision  (AMBER) .   This  routine  (see  Figure  24) 
determines  if  a  vehicle  approaching  the  intersection  will 
stop  or  go  through  the  intersection  on  amber.   If  it 
decides  to  go,  control  is  transferred  either  to  the 
general  behavior  routine  or  a  turning  routine,  as  determined 
by  the  vehicle's  turning  movement.   Otherwise  control  is 
transferred  to  the  red-approach  routine.   Decisions  are 
made  by  a  random  process  related  to  the  stopping 
acceleration  required. 

Behavior  Routines  (GENBHR,  REDAPP,  RIGHT,  LEFT).   The 
four  following  routines  determine  the  acceleration 
initiated  in  the  current  cycle  for  each  vehicle.   Transfer 
to  these  routines  is  controlled  by  the  vehicle-update 
routine  (UPDATE) ,  and  is  related  to  both  the  traffic 
signal  indication  and  the  vehicle's  turning  movement.   A 
limited  amount  of  transfer  occurs  among  the  routines, 
notably  to  facilitate  queue  discharge. 

The  general-behavior  routine  GENBHR  (see  Figure  25) 
is  applied  to  all  vehicles  not  within  the  influence  of  an 
intersection  and  to  those  which  are  not  turning.   Contained 
within  it  is  the  logic  related  to  queue  discharge. 
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All  vehicles  confronted  by  a  red  signal  indication 
or  one  not  conforming  to  their  turning  movement  are 
processed  by  the  red-approach  routine  REDAPP  (see  Figure 
26)  . 

When  a  turning  vehicle  is  within  the  influence  of 
the  intersection  it  is  processed  by  either  the  right  or 
left  turn  routine  (RIGHT  or  LEFT) ,  respectively.   See 
Figures  27  and  28. 

Left-Turn  Conflict  (CONLT) .   This  routine  (see 
Figure  29)  determines  if  a  vehicle  on  an  opposing  link  is 
in  conflict  with  the  desired  path  of  a  left-turning 
vehicle.   If  yes,  appropriate  preventive  action  is  taken 
after  control  has  been  transferred  back  to  the  left-turn 
behavior  routine. 

Cross-Street  Conflict  (CONST) .   This  routine  (see 
Figure  30)  determines  if  a  vehicle  on  a  crossing  link  is 
in  conflict  with  the  path  of  a  vehicle  entering  the 
intersection.   This  is  most  likely  to  occur  immediately 
after  the  signal  turns  green.   If  such  a  conflict  exists, 
appropriate  preventive  action  is  taken  after  control  has 
been  transferred  back  to  the  calling  routine. 

Left-Turn  Lag  and  Gap  Acceptance  (GAP) .   This 
routine  (see  Figure  31)  determines  the  size  and 
acceptability  of  the  time  lag  in  traffic  on  the  opposing 
approach  for  a  left-turn  vehcile.   If  the  left-turning 
vehicle  has  rejected  the  lag,  the  size  and  acceptability 
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of  successive  time  gaps  in  traffic  on  the  opposing 
approach  are  determined.   Decisions  are  made  by  a  random 
process  in  relation  to  probability  distributions  of  gap 
and  lag  acceptance . 

Statistical  Bookkeeping  (BOOK) .   Each  time  a  vehicle 
leaves  its  link  this  routine  updates  the  applicable 
counters  and  sums,  including  total  vehicles  processed, 
total  distance  travelled,  total  travel  time,  total  delay 
encountered,  and  sums  of  squares  associated  with  each. 
Additionally  the  vehicle  is  marked  for  link  transfer, 
which  is  accomplished  in  the  routine  OUTPT. 

Queue  Growth  (QUEUE) .   This  routine  determines  if  a 
new  vehicle  has  joined  the  queue  on  any  of  the  links 
under  consideration.   Only  those  links  specified  on  the 
Program  Instruction  Card  (see  Appendix  B)  are  considered. 
A  frequency  analysis  of  queue  lengths  on  these  links  is 
printed  whenever  a  full  statistical  summary  occurs. 

Interlink  Transfer  (OUTPT) .   Whenever  a  vehicle 
crosses  the  discharge  boundary  of  its  link  it  is  necessary 
to  either  process  it  out  of  the  network  or  onto  another 
link  (the  receiving  link).   This  routine  does  so  by 
resetting  the  vehicle's  position  as  a  function  of  its 
old- link  position  and  the  discharge  boundary,  and 
modifying  the  appropriate  link  lists.   Additionally  some 
link-dependent  vehicle  variables,  such  as  turning  move- 
ment and  target  velocity,  are  reset  randomly. 
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Statistical  Summary  (SUMARY) .   This  routine  controls 
the  computation,  formatting,  and  writing  on  the  output 
file  of  the  summary  statistics  of  network  performance. 
It  is  executed  at  the  end  of  the  simulation  run  and  at 
intermediate  intervals  as  specified  on  the  Program 
Instruction  Card  (see  Appendix  B) .   The  routines  STIX3 
and  STIX  6  are  called  by  SUMARY  to  compute  means  and 
standard  deviations  and  to  compute,  format,  and  write 
frequency  tables  of  travel  times  and  queue  lengths. 

Simulation  Output 
The  simulation  program  output  is  a  detailed 
statistical  tabulation  of  traffic  characteristics  in  the 
network.   The  first  section  of  output  is  a  listing  of 
input  data  supplied  to  the  simulation  program.   Included 
are  program  parameters,  link  parameters,  link  geometry 
descriptors,  traffic  signal  settings,  turning 
probabilities,  and  traffic  volumes. 

The  second  section  of  output  presents  traffic 
operation  data.   Traffic  magnitude  data  related  to 
generated  volumes,  link  exit  volumes,  and  volumes  traced 
along  the  specified  route  are  reported,  followed  by 
statistics  computed  from  the  individual  vehicles' 
performance.   Values  are  presented  for  the  overall  system 
and  for  individual  links.   The  following  performance 
measurements  are  reported: 
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Total  Vehicle  Miles:   the  total  distance  travelled 
on  the  link  by  all  vehicles  during  the  study  period. 
Bookkeeping  occurs  only  when  a  vehicle  leaves  its  link; 
the  distance  travelled  by  vehicles  still  on  the  link  at 
the  time  of  the  summary,  therefore,  is  not  included  in 
this  tally. 

Total  Delay  (Given  in  seconds):   A  vehicle's 
undelayed  travel  time  is  based  on  its  target  velocity  and 
distance  travelled.   The  delay  encountered  by  the  vehicle, 
then,  is  the  difference  between  its  actual  and  undelayed 
travel  time.   Total  delay  for  a  link  is  the  sum  of  all 
vehicles'  delays  on  that  link. 

Average  Delay  (Given  in  seconds) :   the  total  delay 
divided  by  the  number  of  vehicles  leaving  the  link.   In 
this  study  Average  System  Delay  is  taken  to  be  the 
primary  measurement  of  system  performance. 

Delay  Standard  Deviation:   the  standard  deviation 
associated  with  the  above  average  delay. 

Average  Delay  (Given  in  seconds/vehicle-mile) :   an 
extended  form  of  the  average  delay.   Its  purpose  is  to 
facilitate  the  comparison  of  average  delays  among  links. 

Total  Travel  Time  (Given  in  seconds) :   the  travel 
time  for  all  vehicles. 

Average  Travel  Time  (Given  in  seconds/vehicle) :   the 
average  time  required  to  traverse  the  link  under 
consideration. 


95 


Average  Speed  (Given  in  miles  per  hour) :   the 
average  speed  achieved  by  all  vehicles  over  the  entire 
link  or  network. 

The  final  sections  of  the  output  report  contain 
frequency  tables  of  queue  lengths  on  the  specified  links 
and  travel-times  on  the  route  links. 
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CHAPTER  IV 
THE  STREET  NETWORK 

A  portion  of  the  street  network  of  West  Lafayette, 
Indiana,  was  chosen  as  the  test  network.   It  consists 
primarily  of  the  streets  surrounding  the  Purdue  University 
campus . 

The  major  elements  of  the  network  are  one  major 
east-west  arterial  (S.R.  26),  one  major  north-south 
arterial  (U.S.  2  31) ,  and  three  other  north-south  cross 
streets.   The  network  thus  defined  includes  sixteen 
signalized  intersections.   A  street  map  of  the  network 
is  shown  in  Figure  32. 

A  schematic  diagram  of  the  network  is  shown  in 
Figure  33  with  links  numbered  as  required  for  use  in  the 
simulation  model.   The  network  consists  of  three  types  of 
links : 

1.  Input  links  that  feed  traffic  into  the  network 
(links  60  through  84) ; 

2.  Network  links  that  carry  traffic  from  intersection 
to  intersection  within  the  network  (links  26  through  59) ; 
and 

3.  Output  links  that  remove  traffic  from  the  network 
(links  1  through  25). 
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The  SIGNET  model  does  not  accommodate  minor  streets 
not  controlled  by  traffic  signals.   Two  unusual 
characteristics  of  the  network  should  be  noted,  however. 
First,  the  intersection  of  Northwestern  Avenue  and 
Wiggins  Street  is  in  actuality  unsignalized.   Because  a 
major  division  of  flow  occurs  at  this  point,  however,  a 
signal  was  assumed  for  use  in  the  model  which  always 
indicated  green.   Thus  no  delay  was  caused  to  traffic 
but  the  required  division  was  achieved. 

Second,  the  intersection  of  Grant  Street  and  North 
Street  is  such  that  the  two  east-west  legs  (North  Street) 
are  offset  from  each  other.   This  situation  is  represented 
by  employing  two  dummy  links  which  form  the  offset.   As 
in  the  intersection  of  Northwestern  and  Wiggins,  the 
signals  on  these  dummy  links  are  always  green. 

Traffic  signals  in  the  network  can  be  divided  into 
three  distinct  systems.   Those  on  State  Street  are  inter- 
connected and  use  a  65  second  cycle  length.   The  signal 
at  Grant  Street  and  Wood  Street  is  also  interconnected 
with  this  group  and  shares  its  cycle  length.   The  signals 
on  Northwestern  Avenue,  Wiggins  Street,  and  Fowler  Avenue 
are  interconnected  and  use  a  60  second  cycle  length. 
Finally,  those  city-operated  signals  at  Stadium  Avenue 
and  University  Street,  Third  Street  and  University  Street, 
Grant  Street  and  Central  Avenue,  and  Grant  Street  and 
North  Street  operate  on  a  variety  of  cycle  lengths, 
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ranging  from  55  to  70  seconds.   There  is  no  interconnection 
for  these  signals.   All  of  the  above  cycle  lengths  are  in 
effect  during  the  study  period,  4:00  p.m.  to  5:30  p.m. 
The  traffic  signal  settings  are  summarized  in  Appendix  C. 

For  purposes  of  both  simulation  and  signalization 
this  network  is  considered  to  be  independent  of  any  other 
signals. 

Information  on  the  traffic  characteristics  of  the 
network  was  required  for  two  distinct  phases  of  this 
study:   (1)  the  validation  of  the  simulation  model;  and 
(2)  the  application  of  the  simulation  program  in  testing 
alternative  signal  timing  schemes.   Common  to  both  phases 
was  the  need  for  turning  movement  and  lane  distribution 
data.   Traffic  volumes  were  measured  separately  for  each 
phase.   The  collection  of  travel  time  data  is  dealt  with 
in  Chapter  5,  Model  Testing  and  Validation. 

Turning  probabilities  and  lane  distributions 
associated  with  each  input  and  network  link  and  input 
volumes  associated  with  each  input  link  are  shown  in 
Appendix  C  for  average  conditions  during  the  study 
period,  4:00  to  5:30  p.m. 
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CHAPTER  V 
MODEL  TESTING  AND  VALIDATION 

The  final  phase  in  the  development  of  the  SIGNET 
model  was  testing  and  validation.   It  was  desired  to 
determine  if  the  model  represents  real-world  conditions 
with  sufficient  accuracy  and  if  it  is  properly  sensitive 
to  changes  in  various  input  parameters. 

The  first  phase  of  the  sensitivity  analysis  was  to 
compare  travel  times  produced  by  the  simulation  model  with 
equivalent  travel  times  obtained  in  the  field.   It  was 
presumed  that  a  close  correspondence  between  these  times 
would  indicate  that  the  overall  model  was  accurate. 
Individual  portions  of  the  model  could  then  be  tested  in 
subsequent  phases  of  the  sensitivity  analysis. 

Actual  travel  times  were  obtained  for  each  link  on 
a  route  through  the  network  between  4:00  and  4:45  p.m. 
using  the  floating-car  method  of  driving.   Input  volumes 
were  determined  on  a  15-minute  basis  for  the  same  period 
of  time.   Due  to  limited  resources  it  was  possible  to 
travel  the  route  only  3  times  during  each  15-minute  period, 
thereby  yielding  only  3  sets  of  travel  time  data  for  each 
set  of  input  volume  data. 
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Four  simulation  runs  were  made  using  different  seeds 
for  the  random  number  generator  and  the  input  volumes 
described  above.   Histograms  were  made  for  each  link  in 
the  route  relating  simulated  travel  times  of  vehicles 
traveling  the  route  to  the  average  frequency  of  occurrence. 
The  actual  travel  times  were  then  superimposed  on  these 
histograms  to  facilitate  comparison.   Several  histograms 
are  shown  in  Figures  34,  35,  and  36. 

Ideally  the  distribution  of  actual  travel  times 
should  match  the  distribution  of  simulated  travel  times; 
if  these  distributions  did  match  closely,  it  would  be 
difficult  to  reject  the  simulation  results  as  invalid. 
If  the  number  of  observations  used  in  estimating  both 
distributions  were  large  it  would  be  possible  to  apply 
standard  statistical  techniques  in  analyzing  this  goodness 
of  fit.   In  this  case,  however,  only  3  observations  of 
actual  travel  times  were  available  for  each  comparison. 
Standard  statistical  techniques  break  down  under  these 
conditions,  making  a  qualitative  analysis  necessary. 

Examination  of  the  histograms  reveals  several  general 
characteristics  of  the  distributions.   In  all  cases,  the 
actual  travel  times  fall  within  the  distributions  of 
simulated  travel  times,  showing  that  the  simulated  travel 
times  approximate  actual  travel  times.   At  this  point  two 
cases  arise  in  the  comparison,  both  being  dependent  upon 
the  relationship  of  demand  volume  and  capacity.  For  those 
links  on  which  demand  volume  does  not  approach  capacity 
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(i.e.  Link  28,  Figure  34),  only  one  peak  appears  in  the 
histogram,  implying  that  no  vehicles  are  forced  to  wait 
through  more  than  one  red  indication.   In  this  case  it 
would  be  expected  that  an  average  vehicle  would  achieve 
an  average  travel  time  over  the  link;  therefore,  since 
the  floating  car  used  in  the  travel  time  collection  is 
assumed  to  be  an  average  vehicle,  it  would  be  expected 
that  the  actual  travel  times  would  fall  approximately  on 
the  mean  of  the  simulated  travel  times.   It  can  be  seen 
in  Figure  34  that  the  actual  travel  times  did  approximate 
the  mean.   The  overall  model  would  seem  to  be  performing 
relatively  well  in  this  instance. 

On  some  links  (i.e.  Links  56  and  59,  Figures  35  and 
36),  demand  volume  does  approach  capacity.   In  this  case, 
some  vehicles  are  forced  to  wait  through  more  than  one 
red  indication,  resulting  in  the  two  peaks  shown.   Under 
these  circumstances  it  would  be  unrealistic  to  expect 
the  average  actual  travel  time  to  approximate  the  mean, 
since  the  mean  could  fall  during  the  red  indication. 
Instead,  it  is  necessary  to  examine  the  relationship  of 
the  actual  travel  times  to  the  peaks.   It  can  be  seen 
that,  in  general,  the  peaks  are  fairly  well  approximated 
by  the  average  travel  times.   It  was  therefore  felt  that 
the  simulation  model  performed  well  in  this  case. 

Based  on  the  above  analysis,  it  was  decided  that  the 
overall  model  was  an  acceptable  one.   That  is,  the  entire 
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model  working  as  a  whole  produced  acceptable  results.   It 
remained  to  be  shown,  however,  that  individual  portions 
of  the  model  were  also  working.   This  phase  of  the 
testing  is  described  below. 

The  objective  of  the  second  phase  of  the  testing 
was  to  determine  the  sensitivity  of  the  model  output  to 
changes  in  various  input  parameters.   An  inherent 
characteristic  of  computer  simulation,  the  ability  to 
control  all  input  parameters  precisely,  enables  the 
investigator  to  change  only  one  parameter  and  thereby  to 
determine  its  influence  on  the  output.   This  phase  of  the 
sensitivity  analysis  had  practical  usefulness  for  two 
reasons : 

1.  It  provided  additional  data  which  could  be  used 
in  confirming  the  reasonableness  of  the  model.   The 
direction  of  change  in  the  output  caused  by  modifying  a 
parameter  could  be  examined  to  see  if  it  was  logical,  and 
the  magnitude  of  the  change  could  be  checked  for 
reasonableness . 

2.  It  indicated  whether  particular  portions  of  the 
model  logic  were  indeed  operating.   if  a  parameter 
modification  produced  no  change  where  one  was  expected, 
there  was  good  evidence  of  logic  flaws  in  the  model. 

Sensitivity  tests  were  made  on  9  separate  effects 
involving  7  input  parameters.   For  all  of  the  effects  an 
attempt  was  made  to  test  throughout  the  range  of  magnitudes 
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which  might  reasonably  occur  in  real  life.   The  simulation 
run  of  4:00  to  4:15  p.m.  was  used  throughout  the 
sensitivity  analysis  as  a  base  for  comparison  purposes. 
The  following  effects  were  tested: 

1.  The  effect  of  variation  in  input  volume  on 
average  delay.   Greater  volumes  were  expected  to  increase 
delay. 

2.  The  effect  of  variation  in  input  volume  on 
average  travel  time  and  average  speed.   Greater  volumes 
were  expected  to  increase  average  travel  time  and  thus 
decrease  average  speed. 

3.  The  effect  of  variation  in  input  volume  on 
average  queue  length.   Greater  volumes  were  expected  to 
increase  average  queue  length. 

4.  The  effect  of  variation  in  target  velocity  on 
average  travel  time  and  average  speed.   Greater  target 
velocity  was  expected  to  decrease  average  travel  time 
and  thus  increase  average  speed. 

5.  The  effect  of  variation  in  effective  length  on 
avrage  travel  time  and  average  speed.   Greater  effective 
length  was  expected  to  increase  average  travel  time  and 
thus  decrease  average  speed. 

6.  The  effect  of  variation  in  the  truck  percentage 
on  average  travel  time  and  average  speed.   A  higher  truck 
percentage  was  expected  to  increase  travel  time  and  thus 
decrease  average  speed. 


109 


7.  The  effect  of  variation  in  the  maximum  desired 
acceleration  on  average  travel  time  and  average  speed.   A 
higher  maximum  desired  acceleration  was  expected  to 
decrease  average  travel  time  and  thus  increase  average 
speed. 

8.  The  effect  of  variation  in  the  characteristic 
speed  (aQ)  on  average  travel  time  and  average  speed.   A 
higher  characteristic  speed  was  expected  to  reduce  average 
travel  time  and  thus  increase  average  speed. 

9.  The  effect  of  variation  in  the  proportionality 
coefficient  (K)  on  average  travel  time  and  average  speed. 
A  higher  proportionality  coefficient  was  expected  to 
result  in  decreased  travel  time  and  thus  increased 
average  speed. 

Detailed  results  of  the  sensitivity  tests  are  exhibited 
in  Figures  37  through  52  and  Tables  6  through  21.   Four 
runs  were  made  for  each  value  of  the  input  parameters. 
These  provided  a  good  data  base  upon  which  to  build  the 
Analysis  of  Variance  for  each  effect. 

It  was  desirable  to  know  not  only  that  the 
simulation  output  varied  with  changes  in  the  input  para- 
meters, but  also  what  form  the  variation  took  (i.e./  if 
the  response  curve  was  linear,  quadratic,  or  cubic  in 
nature).   If  the  output  variation  levelled  out  at  some 
point  this  response  could  then  be  compared  with 
expectations,  thereby  providing  added  evidence  of  the 
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EFFECT     OF    VOLUME   ON   AVERAGE    DELAY 


TABLE     6 
ANALYSIS    OF    VARIANCE 
EFFECT    OF    VOLUME    ON    AVERAGE    DELAY 


SOURCE    OF  VARIATION 

SUM  OF 
SQUARES 

D.F. 

MEAN 
SQUARE 

F 
RATIO 

AMONG    TREATMENTS 
LINEAR    EFFECT 
QUADRATIC  EFFECT 
CUBIC    EFFECT 

43631.71 
39856.58 
3747.26 
27.86 

3 

1 
1 

1 

14543.90 
39856.58 

3747.26 
27.86 

78  96  * 

216.3    * 
20.4    -* 
0.161 

EXPERIMENTAL    ERROR 

3683.79 

20 

184.19 

TOTAL 

47315.50 

23 

*-    EFFECT    IS    SIGNIFICANT    AT     c*=O.IO. 
CRITICAL    REGION^      F  >2.97 
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FIGURE    38 
EFFECT  OF   VOLUME    ON  AVERAGE   TRAVEL   TIME 


TABLE  7 
ANALYSIS    OF  VARIANCE 
EFFECT    OF   VOLUME   ON   AVERAGE   TRAVEL  TIME 


SOURCE    OF    VARIATION 

SUM    OF 
SQUARES 

D.F. 

MEAN 
SQUARE 

F 
RATIO 

AMONG    TREATMENTS 
LINEAR     EFFECT 
QUADRATIC   EFFECT 
CUBIC   EFFECT 

44707.17 
40990.93 
3715.69 
0.501 

3 
1 
1 
1 

14902  37 
40990.93 
3715.69 
0.501 

77.98  ■* 

213.9    * 

19.4  -* 

0.003 

EXPERIMENTAL   ERROR 

3822.04 

20 

191.10 

TOTAL 

4852916 

23 

-*    EFFECT     IS    SIGNIFICANT  AT       c<-  0.10. 
CRITICAL   REGION ■     F>2.97 
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TABLE    8 
ANALYSIS   OF  VARIANCE 
EFFECT   OF   VOLUME  ON  AVERAGE   SPEED 


SOURCE    OF    VARIATION 

SUM    OF 
SQUARES 

D.F. 

MEAN 
SQUARE 

F 
RATIO 

AMONG    TREATMENTS 
LINEAR    EFFECT 
QUADRATIC    EFFECT 
CUBIC    EFFECT 

107.62 

103.66 

3.85 

0.10 

3 

1 
1 
1 

35.87 

103.66 

3.85 

0.10 

132.8* 
383.3* 
14.3* 
0.38 

EXPERIMENTAL  ERROR 

5.40 

20 

0.270 

TOTAL 

113.02 

23 

EFFECT    IS    SIGNIFICANT    AT 
CRITICAL    REGION^     F>2.97 
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TABLE   9 
ANALYSIS     OF    VARIANCE 


EFFECT  OF  VOLUME    ON  AVERAGE   QUEUE    LENGTH  (LINK  57) 


SOURCE    OF    VARIATION 

SUM    OF 
SQUARES 

D.F. 

MEAN 
SQUARE 

F 
RATIO 

AMONG    TREATMENTS 
LINEAR    EFFECT 
QUADRATIC  EFFECT 
CUBIC    EFFECT 

12.152 
12.142 
0.010 
00002 

3 

1 
1 
1 

4.051 

12.142 
0.010 
0.0002 

128.0* 
384  5  * 
0.326 
0.005 

EXPERIMENTAL   ERROR 

0.538 

17 

00317 

TOTAL 

12690 

20 

¥e        EFFECT    IS    SIGNIFICANT    AT 
CRITICAL     REGION  :     F  >  3.03 


0.10. 
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EFFECT  OF  TARGET  VELOCITY   ON   AVERAGE   TRAVEL  TIME 


TABLE   10 
ANALYSIS  OF  VARIANCE 

EFFECT  OF  TARGET   VELOCITY  ON  AVERAGE  TRAVEL  TIME 


SOURCE     OF   VARIATION 

SUM    OF 
SQUARES 

D.R 

MEAN 
SQUARE 

F 
RATIO 

AMONG    TREATMENTS 
LINEAR   EFFECT 
QUADRATIC  EFFECT 
CUBIC  EFFECT 

638599.4 
435057.6 

174491.2 
290506 

3 

1 
1 
1 

212866.5 

435057.6 

174491.2 

29050.6 

423.6  * 

865.8* 

347.3  * 

57.8  * 

EXPERIMENTAL  ERROR 

9547.2 

19 

502.5 

TOTAL 

648146.6 

22 

*     EFFECT  IS    SIGNIFICANT    AT    Ot;  0.10. 
CRITICAL    REGION^      F  >2.99 
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FIGURE  42 
EFFECT  OF  TARGET  VELOCITY  ON  AVERAGE    SPEED 


TABLE    II 
ANALYSIS    OF  VARIANCE 
EFFECT   OF  TARGET   VELOCITY   ON  AVERAGE  SPEED 


SOURCE    OF   VARIATION 

SUM     OF 
SQUARES 

D.  F 

MEAN 
SQUARE 

F 
RATIO 

AMONG     TREATMENTS 
LINEAR   EFFECT 
QUADRATIC    EFFECT 
CUBIC   EFFECT 

422.56 
377.64 
44.91 
0.008 

3 

1 
1 
1 

140.85 

377.64 

44.91 

0.008 

233  6  • 
626.2  * 
74.5  * 
0.014 

EXPERIMENTAL    ERROR 

11.46 

19 

0.603 

TOTAL 

434.02 

22 

*   EFFECT    IS   SIGNIFICANT    AT    ex.  =0.10. 
CRITICAL    REGION:     F  >  2.99 
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FIGURE    43 
EFFECT  OF  EFFECTIVE   LENGTH   ON  AVERAGE    TRAVEL  TIME 


TABLE    12 

ANALYSIS    OF  VARIANCE 
EFFECT    OF  EFFECTIVE    LENGTH    ON    AVERAGE    TRAVEL  TIME 


SOURCE    OF    VARIATION 

SUM      OF 
SQUARES 

D.  F 

MEAN 
SQUARE 

F 
RATIO 

AMONG    TREATMENTS 
LINEAR    EFFECT 
QUADRATIC  EFFECT 

13631.18 
13416.86 
214.32 

2 

1 
1 

6815.59 
13416.86 
214.32 

30.5* 

60.2  * 

0.96 

EXPERIMENTAL  ERROR 

2008.72 

9 

223.19 

TOTAL 

15639.90 

II 

*    EFFECT   IS  SIGNIFICANT    AT    ot  i  0.10. 
CRITICAL     REGION:     F  >  3.23 


117 


..  • 

16 

X 

•  \^ 

CL 

5 

15 

Q 

\.         • 

UJ 

14 

UJ 

CL 

<S) 

•            >v 

13 

e 

UJ 

o 

< 

12 

^y* 

UJ 

> 

• 

< 

II 

1 

1                1 

• 
1 

16  20  24  28 

EFFECTIVE   LENGTH,    FT 
FIGURE    44 

EFFECT    OF   EFFECTIVE  LENGTH  ON    AVERAGE  SPEED 


TABLE    13 

ANALYSIS  OF   VARIANCE 
EFFECT  OF  EFFECTIVE  LENGTH  ON  AVERAGE  SPEED 


SOURCE    OF    VARIATION 

SUM   OF 
SQUARES 

D.F. 

MEAN 
SQUARE 

F 
RATIO 

AMONG    TREATMENTS 
LINEAR    EFFECT 
QUADRATIC    EFFECT 

35.363 
35.322 
0.041 

2 

1 
1 

17.681 

35.322 

0.041 

43.9  X 
87.7  * 
0.1 01 

EXPERIMENTAL  ERROR 

3.625 

9 

0.403 

TOTAL 

38.988 

II 

EFFECT     IS    SIGNIFICANT    AT     Ot=O.IO. 
CRITICAL  REGION^      F  >  3.36 
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FIGURE    45 
EFFECT  OF  TRUCKS  ON  AVERAGE  TRAVEL  TIME 


TABLE     14 
ANALYSIS    OF  VARIANCE 

EFFECT  OF  TRUCKS  ON  AVERAGE  TRAVEL  TIME 


SOURCE   OF  VARIATION 

SUM    OF 
SQUARES 

D.F 

MEAN 
SQUARE 

F 
RATIO 

AMONG    TREATMENTS 
LINEAR  EFFECT 
QUADRATIC    EFFECT 

9406.99 

8851.82 

555.17 

2 

1 
1 

4703.49 

8851.82 

555.17 

23.4  * 

44.1  -K 

2.76 

EXPERIMENTAL    ERROR 

1810.03 

9 

201.11 

TOTAL 

11217.02 

II 

EFFECT    IS    SIGNIFICANT    AT       0C=  0.10. 
CRITICAL    REGION^      f  >  3.36 
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FIGURE    46 
EFFECT   OF  TRUCKS   ON    AVERAGE  SPEED 


TABLE     15 
ANALYSIS    OF    VARIANCE 

EFFECT    OF  TRUCKS   ON  AVERAGE  SPEED 


SOURCE    OF   VARIATION 

SUM    OF 
SQUARES 

D.F. 

MEAN 
SQUARE 

F 
RATIO 

AMONG    TREATMENTS 
LINEAR    EFFECT 
QUADRATIC    EFFECT 

16.815 
16.188 
0.627 

2 

1 
1 

8.408 
16.188 
0.627 

24.5  * 

47.2    * 

1.83 

EXPERIMENTAL    ERROR 

3.084 

9 

0.343 

TOTAL 

19.899 

II 

EFFECT  IS   SIGNIFICANT   AT     fX=  0.10. 
CRITICAL   REGION'       F>3.36 
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FIGURE    47 

EFFECT   OF    MAXIMUM   DESIRED  ACCELERATION 
ON   AVERAGE  TRAVEL  TIME 


TABLE     16 
ANALYSIS   OF  VARIANCE 
EFFECT  OF  MAXIMUM  DESIRED  ACCELERATION 
ON  AVERAGE  TRAVEL  TIME 


SOURCE    OF  VARIATION 

SUM    OF 
SQUARES 

DEGREES 

OF 
FREEDOM 

MEAN 
SQUARE 

F 
RATIO 

AMONG    TREATMENTS 
LINEAR    EFFECT 
QUADRATIC   EFFECT 
CUBIC    EFFECT 

32086.9 

22890.4 
7399.0 
1797.5 

3 

1 
1 
1 

10695.6 

22890.4 
1399.0 
1797.5 

19.1    * 
40.9* 
13.2  * 
3.21   *r 

EXPERIMENTAL    ERROR 

6714.8 

12 

559.6 

TOTAL 

388017 

15 

EFFECT  IS  SIGNIFICANT    AT 
CRITICAL  REGION:    F  >  3.18 


°^-  0.10. 


X 
0_ 


121 


14 


Q 
LlI 
UJ 
CL 
CO 

UJ 
O 
< 
OT 
UJ 
> 
< 


10    - 


8    - 


MAXIMUM    DESIRED  ACCELERATION,  FT./SEC 

FIGURE   48 
EFFECT  OF  MAXIMUM   DESIRED  ACCELERATION  ON 
AVERAGE    SPEED 


TABLE  17 
ANALYSIS   OF  VARIANCE, 
EFFECT  OF  MAXIMUM  DESIRED  ACCELERATION  ON 
AVERAGE    SPEED 


SOURCE  OF  VARIATION 

SUM  OF 
SQUARES 

D.F. 

MEAN 
SQUARE 

F 
RATIO 

AMONG   TREATMENTS 
LINEAR    EFFECT 
QUADRATIC    EFFECT 
CUBIC   EFFECT 

36.93 

16  .52 

19.56 

.85 

3 

1 
1 
1 

12.31 

16.52 

19.56 

.85 

14.3* 

19.2  * 

22.8* 

.99 

EXPERIMENTAL  ERROR 

10.31 

12 

.859 

TOTAL 

47.24 

15 

*  EFFECT    IS    SIGNIFICANT   AT  CO  0. 10 
CRITICAL      REGION;    F  >3.I8 
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FIGURE  49 
EFFECT  OF  CHARACTERISTIC  SPEED  (do)  ON  AVERAGE  TRAVEL  TIME 


TABLE    18 
ANALYSIS    OF   VARIANCE 
EFFECT  OF  CHARACTERISTIC  SPEED  (do)   ON  AVERAGE  TRAVEL  TIME 


SOURCE   OF  VARIATION 

SUM    OF 
SQUARES 

D.F. 

MEAN 
SQUARE 

F 
RATIO 

AMONG    TREATMENTS 
LINEAR    EFFECT 
QUADRATIC    EFFECT 

8787.66 
8432.46 

355.20 

2 

1 
1 

4393.03 

8432.46 

355.20 

15.9  * 
30.4  * 

1.28 

EXPERIMENTAL   ERROR 

2488.82 

9 

276.54 

TOTAL 

11276.48 

II 

EFFECT   IS  SIGNIFICANT  AT      0(  =  0.I0. 
CRITICAL  REGION;     p  >3.23 
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TABLE   19 
ANALYSIS   OF    VARIANCE, 
EFFECT  OF  CHARACTERISTIC  SPEED  ON   AVERAGE  SPEED 


SOURCE    OF  VARIATION 

SUM  OF 
SQUARES 

D.F. 

MEAN 
SQUARE 

F 
RATIO 

AMONG   TREATMENTS 
LINEAR    EFFECT 
QUADRATIC    EFFECT 

18.909 

18.301 

.608 

2 
1 

1 

9.455 

18.301 

.608 

16.8* 

32.5* 

1.08 

EXPERIMENTAL    ERROR 

5.073 

9 

TOTAL 

23.982 

II 

*    EFFECT    IS    SIGNIFICANT  AT  OOO.IO 
CRITICAL    REGION:    F>3.36 
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FIGURE  51 
EFFECT  OF  PROPORTIONALITY  COEFFICIENT  (K )  ON 
AVERAGE  TRAVEL  TIME 


TABLE  20 
ANALYSIS  OF  VARIANCE, 
EFFECT  OF  PROPORTIONALITY  COEFFICIENT  ON  AVERAGE  TRAVEL  TIME 


SOURCE  OF  VARIATION 

SUM  OF 
SQUARES 

D.R 

MEAN 
SQUARE 

F 
RATIO 

AMONG  TREATMENTS 
LINEAR    EFFECT 
QUADRATIC    EFFECT 
CUBIC    EFFECT 

9601.90 

9031.83 

4  37.65 

132.4  2 

3 
1 
1 
1 

3200.63 

9031.83 

437.65 

132.42 

31.20* 
88.00* 

4.27* 

1.29 

EXPERIMENTAL  ERROR 

1231.04 

12 

102.59 

TOTAL 

10832.93 

15 

*     EFFECT    IS    SIGNIFICANT  AT  CC=0. 10 
CRITICAL    REGION'.     F>3.I8 
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FIGURE    52 
EFFECT  OF  PROPORTIONALITY  COEFFICIENT  (K  )  ON 
AVERAGE    SPEED 


TABLE     2 1 
ANALYSIS  OF  VARIANCE  , 
EFFECT  OF  PROPORTIONALITY  COEFFICIENT  ON  AVERAGE  SPEED 


SOURCE  OF  VARIATION 

SUM  OF 

SQUARES 

D.F. 

MEAN 
SQUARE 

F 
RATIO 

AMONG  TREATMENTS 
LINEAR  EFFECT 
QUADRATIC  EFFECT 
CUBIC  EFFECT 

29.268 

28.375 
.518 
.374 

3 

1 
1 
1 

9.756 

28.375 
.518 
.374 

26.6* 

77.3* 
1.41 
J. 02 

EXPERIMENTAL   ERROR 

4.403 

12 

TOTAL 

33.671 

15 

■<»  EFFECT  IS   SIGNIFICANT  AT  «=  0.10 
CRITICAL   REGION:    F>3.I8 


126 


model's  acceptability.   For  this  reason  the  treatment 
sum  of  squares  was  broken  down  into  sums  of  squares 
associated  with  linear,  quadratic,  and  cubic  effects 
using  the  orthogonal  polynomials  method.   The  results  are 
shown  for  each  test  in  Tables  6  through  21. 

It  can  be  seen  from  Figures  37,  38  and  39  that 
volume  changes  resulted  in  significantly  less  variation 
in  average  delay,  average  travel  time,  and  average  speed 
under  low  volume  conditions  than  they  did  under  high 
volumes.   This  flattening  of  the  response  curve  was  not 
unexpected,  since  under  these  low  volume  conditions 
delays  caused  by  signals  become  much  more  significant 
than  those  caused  by  other  vehicles. 

Target  velocity,  the  characteristics  speed  (a  ) ,  the 
proportionality  coefficient  (K) ,  and  effective  length  are 
the  primary  parameters  affecting  queue  discharge  and 
thereby  the  total  network  performance.   Decreases  in 
target  velocity  cause  slower  discharge  and  lower  speeds. 
(See  Figures  41  and  42).   As  expected,  increases  are 
somewhat  negated  by  the  maximum  desired  acceleration  (See 
Figures  47  and  48) ,  since  it  puts  a  figurative  ceiling  on 
acceleration  rates ,  and  therefore  causes  a  flattening  of 
the  response  curve.   Similarly,  increases  in  the  proportion- 
ality coefficient  and  the  characteristic  speed  (Figures  49 
through  52)  cause  faster  queue  discharge,  while  increased 
effective  length  (Figures  43  and  44)  slows  queue  discharge 
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as  was  expected.   Decreases  in  the  maximum  desired 
acceleration  also  slow  queue  discharge  as  expected.   Studies 

by  Greenshields  (17)  indicate  that  nearly  all  vehicles' 

2 

starting  accelerations  are  less  than  6  ft/sec  .   Higher 

values  for  the  maximum  desired  acceleration  would  there- 
fore have  little  effect  in  slowing  queue  discharge.   This 
expectation  is  parallelled  in  the  response  curve. 

The  way  in  which  each  of  the  above  sensitivity  tests 
performed  as  expected  provided  strong  evidence  that  the 
individual  portions  of  the  SIGNET  model  were  valid.   These 
results,  combined  with  the  results  of  the  travel  time 
tests,  served  to  substantially  increase  the  author's 
confidence  in  the  model. 
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CHAPTER  VI 
SIGNAL  TIMING  STUDIES 

As  stated  in  Chapter  I,  the  ultimate  objective  of 
this  research  was  to  develop  a  tool  which  could  be  used  to 
compare  alternative  traffic  signal  control  schemes.   The 
foregoing  chapters  have  related  to  the  development  of  this 
tool.   This  chapter  is  concerned  with  the  application  of 
the  simulation  program  to  testing  these  various  schemes. 

Several  methods  for  optimizing  signal  systems  were 
studied  and  reported  on  by  Wagner,  Barnes,  and  Gerlough  (36), 
Among  them  were  SIGOP,  the  British  Combination  Method,  the 
Volume  Priority  Method,  the  Preferential  Street  Method,  the 
Webster  Method,  and  the  Delay/Dif ference-of-Offset  Method. 
Their  findings  indicate  that  application  of  any  of  these 
methods  will  produce  significant  upgrading  of  network 
performance. 

Three  of  these  techniques  were  used  to  develop 
alternative  control  schemes  for  this  research.   The  Webster 
Method  was  used  to  determine  optimal  cycle  lengths  and 
splits  for  each  intersection;  the  Delay/Dif ference-of-Offset 
Method  was  used  to  determine  optimal  offsets  for  each  link; 
and  the  Preferential  Street  Method  was  used  to  determine 
the  final  offset  plan  for  the  network.   Because  full 
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descriptions  of  each  of  these  methods  appear  elsewhere  only 
a  summary  of  each  is  presented  below. 

First  published  in  a  monograph  in  1958  (38) ,  the  Webster 
method  of  determining  optimum  cycle  lengths  and  splits  for 
fixed  time  signals  is  rapidly  becoming  a  standard  method. 
Webster  used  a  combination  of  theory  and  computer 
simulation  to  deduce  a  formula  for  average  delay  per 
vehicle  at  a  signalized  intersection.   From  that  formula 
expressions  were  derived  for  the  cycle  lengths  and  splits 
which  minimize  total  delay  at  the  intersection.   For  a 
two-phase  intersection: 

r     -   1'5L   +  5 
U0    1-Y.  -  YT 


A     B 


where 


Cfi  =  optimum  cycle  length,  in  seconds; 

L  =  lost  time  per  cycle,  in  seconds;  and 

Y„  and  Y„  =  the  maximum  ratios  of  single  lane  flow 
A      B 

to  saturation  flow  for  phases  A  and  B. 
The  splits  should  be  established  such  that 


GEB  "  YB 


where 


GE.  and  GED  =  effective  green  times  of 


phases  A  and  B,  in  seconds. 
In  the  normal  approach  to  strategic  timing  of  signal  net- 
works the  maximum  cycle  length  determined  above  would  be 
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taken  as  the  network  cycle  length.   This  approach  was  used 
in  the  determination  of  one  alternative,  Alternative  A,  of 
this  study.   The  difficulty  with  this  practice  is,  however, 
that  excessive  cycle  lengths  may  be  used  for  large, 
virtually  unrelated  areas  of  the  network.   Wagner,  Barnes, 
and  Gerlough  (36)  found  that  under  some  conditions  it  is 
possible  to  mix  cycle  lengths  and  thereby  optimize  operation 
in  two  or  more  areas.   Alternative  B  of  this  study  was 
therefore  designed  to  employ  different  cycle  lengths  on 
each  of  the  two  primary  arterials,  State  Street  and 
Northwestern  Avenue.   Simulation  testing  would  be  used  to 
determine  if  the  lack  of  fixed  relationships  between  some 
adjacent  signals  adversely  affected  system  performance. 
First  developed  at  the  Road  Research  Laboratory  in 
England  for  strategic  optimization  of  offsets,  the  Delay/ 
Dif ference-of-Of fset  Method  was  refined  by  Wagner,  Gerlough, 
and  Barnes  (15).   The  traffic  flows,  the  common  cycle 
length,  and  the  apportionment  of  green  at  each  signal  are 
given,  and  it  is  assumed  that  the  delay  to  traffic  along 
any  link  depends  solely  on  the  difference  between  the 
offsets  of  the  signals  at  each  end  of  the  link.   This 
offset  optimization  technique  has  perhaps  the  soundest 
logical  base  of  the  methods  developed  to  date,  because 
delay  caused  by  queueing  is  taken  under  consideration  and 
systematically  reduced.   A  complete  description  of  the 
technique  may  be  found  in  N.C.H.R.P.  Report  124  (36). 
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The  Preferential  Street  Method  is  a  relatively 
straightforward  approach  to  combining  the  optimal  offsets 
determined  above  into  the  final  offset  plan.   It  is  one  of 
the  most  widely  used  means  for  developing  network  timing 
plans,  since  the  engineer  uses  his  judgement  and  the 
information  at  hand  to  decide  which  streets  are  to  be 
favored.   The  preferential  streets  must  be  selected  in  a 
manner  which  avoids  closure  of  any  portion  of  the  network; 
in  a  grid  network,  this  would  entail  se]e-cting  any  number 
of  parallel  streets  and  one  cross-street.   The  intersections 
along  each  preferential  street  are  then  assigned  offsets 
as  determined  from  some  systematic  offset  determination 
technique,  such  as  the  Delay/Difference-of-Offset  technique 
described  above. 

Before  evaluating  the  network  performance  under  each 
of  the  various  signal  control  alternatives  it  was 
necessary  to  settle  upon  some  criterion  upon  which  to  base 
this  evaluation.   Many  criteria  are  available  to  the 
researcher,  such  as  total  travel  time,  mean  travel  time, 
maximum  travel  time,  total  system  delay,  mean  system  delay, 
maximum  delay,  total  stopped  delay,  mean  stopped  delay, 
maximum  stopped  delay,  mean  queue  length,  maximum  queue 
length,  mean  travel  speed,  and  minimum  travel  speed. 

Total  or  mean  system  delay  has  been  widely  accepted 
in  theory  as  an  appropriate  measure  of  effectiveness. 
System  delay  is  considered  to  be  equal  to  the  difference 
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between  actual  travel  time  and  some  theoretical  optimum  or 
undelayed  travel  time.   Berry  (5)  assumed  an  undelayed 
trip  to  be  one  made  at  the  average  free  flow  speed.   This 
assumption  could  be  in  error,  however,  since  free  flow 
speed  does  not  necessarily  correspond  exactly  with  a 
vehicle's  target  velocity. 

In  the  simulation  model  mean  system  delay  is  used  as 
the  primary  measure  of  effectiveness  of  network  performance, 
Undelayed  travel  time  is  calculated  uniquely  for  each 
vehicle,  based  on  the  vehicle's  target  velocity,  and  delay 
is  calculated  as  the  difference  between  this  undelayed 
travel  time  and  the  vehicle's  actual  travel  time.   Mean 
system  delay  is  the  average  of  all  vehicles'  delay. 

A  total  of  three  different  signal  timing  plans  were 
tested  for  their  effects  on  network  performance.   The 
existing  condition  was  used  as  a  basis  for  comparison, 
while  Alternatives  A  and  B  were  tested  for  any  improvement 
in  operation  which  they  might  produce.   The  simulation 
program  was  run  three  times  for  each  condition  using  a 
different  random  number  seed  each  time.   The  results  are 
exhibited  in  Table  22. 

Two  statistical  tests  were  performed  which  compared 
the  operational  effectiveness  under  Alternatives  A  and  B 
with  the  effectiveness  under  the  existing  timing  plan: 

1.   The  variances  of  Alternatives  A  and  B  were 
tested  for  equality  with  the  variance  of  the  existing 


133 


TABLE  22 

Average  Delay  Caused  by  Signal  Timing  Alternatives 
sec./veh.l 


1 

Existing 
Condition 

19.47 

Alternative 
A 

Alternative 
B 

Run  No. 

22.65 

19.21 

Run  No. 

2 

19.32 

23.73 

21.17 

Run  No. 

3 

20.07 

21.09 

21.26 

Mean 

19.62 

22.49 

20.55 

Delays  are  computed  on  a  link  basis.   Therefore  the  delays 
shown  are  the  average  delays  encountered  in  negotiating 
the  length  of  one  link. 
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2     2  2     2 

condition;  i.e.,  the  hypotheses  HQ :  0A  ■  oE  and  HQ:  aQ  «  a£ 

2     2 
were  tested,  as  opposed  to  the  alternatives  H,  :  a.  ■  o„ 

2     2 

and  H. :  on  =  a„   respectively.   As  defined  by  Ostle  (30), 

the  hypothesis  HQ  can  be  accepted  if 

x2    (a/2.n-l)   <LJ™ll    <     X2W2>  n_ir 

0 
Otherwise,  HQ  must  be  rejected.   In  this  case, 


21.1 


and 


16.1. 


z    (X  -  x)2 

3.5145 
.1666 

4 

i  (x  -  x)J; 

4 

= 

2.686 
.1666 

At  the   =  0.10  level,  both  values  were  greater  than  the 

2 
critical  x  »    so  the  hypotheses  were  rejected.   The 

variances,  then,  could  not  be  considered  equal. 

2.   The  means  of  Alternatives  A  and  B  were  tested 

for  equality  with  the  mean  of  the  existing  condition;  i.e., 

the  hypotheses  HQ :  MA  =  UB  and  HQ :  yfi  =  uE  were  tested, 

as  opposed  to  the  alternatives  HQ :  y-  =  u£  and  Hq :  yfi  =  yE« 

A  reasonably  good  approximate  procedure  for  cases  involving 

unequal  variances  is  defined  by  Ostle.   For  the  sample 

hypotheses  HQ :  y.  =  y2,  compute 
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•  f  =  (X^Xj)  /  (aj/n1  +  s\/Ti2)1/2 
and  reject  if 

t'  <  -(w,t,  +  w0t0)  /  (w,  +  w,) 


or  if 


where 


t1  >  (w^  +  w2t2)  /  (wx  +  w2) 


2  / 
wl  =  s]/ni; 

w2  =  S2/n2; 

4  =  t(l-a/2,  nrl);  and 
fc2  =  t(l-a/2fn2-l) * 


In  this  case, 


(22.488  -  19.619)       m    3>58 


tk   ~   ,1-757   7  .1666  Xl/T 
(—3—  +  —3—  ) 


and 


.,       (20.546  -  19.619)       .  ,  ,, 

fcB  =  ,1.343  7  Eggs  7572        -  1-31* 
(—3—  +  —J—  ) 

The  weighted  average  of  t1  and  t2  was  2.920.  Therefore 
HQ:  pA  ■  ]i„  was  rejected  while  HQ :  UB  =  VE  could  not  be 
rejected.  In  other  words,  the  mean  delay  associated  with 
Alternative  A  could  not  be  considered  equal  to  the  mean 
delay  associated  with  the  existing  condition.  The  mean 
delay  of  Alternative  B,  however,  could  not  be  said  to  be 
unequal  to  the  mean  delay  of  the  existing  condition. 

It  is  not  surprising  that  no  significant  improvement 
could  be  made  on  the  existing  condition,  for  that  timing 
plan  was  derived  over  a  period  of  time  using  both 
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analytical  and  empirical  (i.^,  field  adjustment)  techniques, 
It  cannot  be  said  that  a  design  procedure  incorporating 
simulation  will  consistently  produce  a  better  plan  than  a 
procedure  using  other  techniques,  for  that  is  not  the 
point  of  using  simulation.   Instead,  simulation  can  help 
arrive  at  the  optimal  timing  plan  more  quickly,  primarily 
by  providing  an  easily  accessible  medium  for  study  and 
experimentation.   This  aspect  of  the  project  was 
demonstrated  by  the  fact  that  it  took  only  a  few  hours  to 
develop,  implement,  and  test  the  two  alternatives  in  this 
study.   The  benefits  of  using  simulation  were  further 
demonstrated  by  the  fact  that  a  significant  difference 
was  demonstrated  between  two  plans,  thereby  indicating 
which  should  be  implemented. 

There  is  also  a  possibility  that  the  techniques  used 
to  determine  the  timing  plans  were  inadequate  in  some 
respects.   The  detection  of  such  inadequacies  was  not  in 
the  scope  of  this  project,  nor  would  it  be  under  normal 
design  conditions.   Inadequacies  in  the  design  techniques 
could  contribute  to  the  lack  of  improvement  encountered 
in  this  instance,  however;  since  simulation  is  merely  a 
tool  for  choosing  among  the  alternative  timing  plans, 
there  is  no  way  of  overcoming  such  shortcomings  using 
just  simulation. 

The  foregoing  was  intended  to  give  a  somewhat  detailed 
description  of  the  use  of  the  simulation  program  in  the 
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design  of  signal  timing  plans .   The  steps  required  in  this 
type  of  design  may  be  summarized  as  follows: 

1.  Comprehensive  data  must  be  gathered  on  both  the 
network  geometry  and  traffic  characteristics.   Turning 
movements  and  input  volumes  are  especially  critical,  and 
should  be  determined  as  precisely  as  resources  allow. 

2.  The  simulation  program  should  be  calibrated  to 
the  network  by  means  of  a  travel  time  test  and  at  least  a 
cursory  sensitivity  analysis. 

3.  Alternative  signal  timing  plans  should  be 
developed  using  systematic  study  and  analysis  techniques. 

4.  These  alternative  plans  should  be  tested,  using 
several  simulation  runs  and  standard  statistical  techniques 
to  determine  the  significance  of  the  results. 

5.  The  final  selection  of  one  alternative  should  be 
made  on  the  basis  of  one  or  more  predefined  criteria. 

The  above  steps  are  predicated  on  the  assumption  that 
the  goals,  objectives,  and  constraints  of  the  study  have 
already  been  determined  and  that  simulation  is  the  most 
effective  means  available  to  achieve  these  objectives. 

It  is  difficult  at  this  point  to  determine  how  much 
time  the  use  of  simulation  could  save  the  traffic  engineer, 
since  it  is  unknown  how  long  the  field  adjustment  of  a 
typical  improvemen  t would  take.   In  this  project 
preparation  and  coding  of  the  input  data  took  between  15 
and  20  hours,  although  much  of  this  data  would  also 
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normally  be  required  for  designing  the  timing  plans..  It 
is  felt,  therefore,  that  this  figure  compares  favorably 
with  the  time  required  to  undertake  field  adjustment.   The 
possibility  of  using  the  simulation  in  studying  other 
phases  of  traffic  control,  such  as  turning  movement 
prohibition,  parking  regulation,  and  unbalanced  lane 
operation,  also  tends  to  make  the  use  of  simulation  more 
attractive.   Such  studies  were  not,  however,  attempted  in 
this  research. 
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CHAPTER  VII 
CONCLUSION 

The  overall  accomplishments  of  this  project  conformed 
well  with  the  original  research  plan.   A  simulation  model, 

SIGNET,  was  developed  to  reproduce  traffic  flow  under 
laboratory  conditions.   The  program  was  fairly  economical, 
achieving  a  6.5  to  1  real-time  to  simulation-time  ratio. 
A  sensitivity  analysis  indicated  that  the  model  simulated 

traffic  flows  quite  accurately. 

The  model  was  used  to  evaluate  several  alternative 
timing  plans,  and  indicated  by  a  significant  difference 

in  mean  delay  between  two  of  these  plans  that  it  is 
indeed  sensitive  to  variations  in  signal  timing.   No 
improvement  could  be  made  over  the  operation  of  the 
existing  network.   This  does  not  necessarily  indicate 
that  the  model  itself  is  weak,  however,  because  the 
traffic  control  theory  used  to  derive  the  alternatives 
could  be  inadequate;   under  such  circumstances  no 
improvement  could  be  expected.   It  was  demonstrated  that 
the  incorporation  of  simulation  into  the  design  procedure 
could  make  that  procedure  quicker,  at  the  same  time 

resulting  in  the  production  of  a  more  efficient  timing 
plan.   In  effect  this  was  the  overall  goal  of  the  project. 
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The  use  of  the  SIGNET  model  is  not  restricted  to  signal 
timing  studies.   In  fact,  the  effects  of  many  other  traffic 
engineering  measures  may  be  evaluated  by  varying  the 
program  inputs.   Such  measures  could  include  turning  move- 
ment prohibitions,  parking  restrictions,  unbalanced  lane 
operation,  and  one-way  street  operation.   A  comprehensive 
set  of  improvements  to  the  network  can  thus  be  easily 
evaluated.   This  capability  is  important  because  traffic 
signal  optimization  cannot  be  considered  to  be  the  sole 
means  of  obtaining  maximum  network  efficiency. 

Of  primary  importance  in  future  work  involving  SIGNET 
should  be  more  intensive  validation  studies.   The  model 
was  quite  accurate  in  reproducing  traffic  conditions  during 
the  validation  phase  of  this  study;   it  would  be  desirable, 
however,  to  test  the  model  much  more  if  more  comprehensive 
traffic  data  could  be  obtained.   A  constant  monitoring 
of  input  volumes  during  collection  of  travel  data  would 
be  especially  beneficial  in  this  regard,  as  would  well 
defined  turning  probabilities. 

The  model  itself  could  be  somewhat  improved  also. 
Provision  for  pedestrian  conflicts,  right-turns  on  red, 
and  traffic  actuated  signals  would  result  in  increased 
versatility.   It  is  doubtful,  however,  that  such  additions 
would  affect  overall  model  performance  substantially. 
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Appendix  A 

PRESIG  Program  Details 

The  following  is  a  complete  description  of  the  PRESIG 
(preliminary  geometry  determination)  program  inputs.   All 
data  are  directly  related  to  the  geometry  of  the  network, 
and  are  easily  measured  in  the  field.   The  function  of 
PRESIG  is  to  convert  these  data  to  data  needed  by  the 
simulation  program  SIGNET,  using  the  procedure  described 
in  Chapter  III.   A  summary  of  the  required  variables  and 
formats  is  given  in  Table  A-2. 

The  physical  characteristics  required  for  each  link 
are  as  follows: 

ITYPE.  =  intersection  type,  numerical  class. 

JTYPE.  =  intersection  type,  alphabetical  subclass. 
The  intersection  types  recognized  by  PRESIG  are  shown  in 
Figure  A-l  with  their  class  (number)  and  subclass  (letter) 
identification.   Care  must  be  taken  that  the  intersection 
is  considered  from  the  same  orientation  as  it  would  be  by 
an  approaching  driver  on  the  link.   For  the  purposes  of 
PRESIG,  one-way  streets  toward  an  intersection  are  not 
considered  by  the  other  links  of  that  intersection. 
Therefore  when  the  intersection  type  is  chosen,  one-way 
legs  toward  the  intersection  are  not  included. 
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N.  ■  number  of  lanes  in  link  i.  N    =3. 
i  mzx 

LLAN.  ■  length  of  each  lane,  in  feet,  from  center  of 
tail  intersection  to  center  of  head  intersection.   Left 
and  right  turning  pockets  are  measured  from  the  center  of 
the  head  intersection  back  to  the  beginning  of  the  lane. 

CURBD.  ■  distance  from  center  of  head  intersection 
back  to  stop  line. 

IPARKR.  =  parking  on  right  side  of  link,  yes  or  no. 

IPARKL.  =  parking  on  left  side  of  link,  yes  or  no. 

IOPP.  .  .  ,  (.  =  opposing  links  beginning  with  right- 
most  and  proceding  counter-clockwise.   The  directly 
opposite  link  (i.e.  opposing  left  turns)  is  indexed  by 
j  =  3.   Opposing  links  on  the  right  are  indexed  by  j  =  1 
and  j  =  2;  if  only  one  exists,  it  is  indexed  by  j  =  1. 
Opposing  links  on  the  left  are  indexed  by  j  =  4  and  j  =  5; 
if  only  one  exists,  it  is  indexed  by  j  =  5. 

NREC.    •  i  /-  =  receiving  link  for  each  of  six 
possible  turning  movements,  beginning  with  the  rightmost 
and  proceding  counter clockwise.   Straight-through  movements 
in  lane  1  and  lane  2  are  indexed  by  j  =  3  and  j  =  4 
respectively.   One  right  turn  is  indexed  by  j  =  1;  two 
are  indexed  by  j  =  1  and  j  =  2.   One  left  turn  is  indexed 
by  j  =  6 ;  two  are  indexed  by  j  =  5  and  j  =  6 . 

Turning  radii  are  not  required  for  all  links,  since 
a  table  of  default  radii  is  kept  in  PRESIG.   These  default 
values  were  developed  from  criteria  found  in  the  AASHO 
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Policy  on  Geometric  Design  of  Rural  Highways  (1),  and  are 
shown  in  Table  A-l.   For  those  links  with  radii  differing 
from  the  default  values  it  is  necessary  to  supply  the 
proper  values  with  the  rest  of  the  input  data. 

Revised  discharge  boundary  values  may  be  input  prior 
to  the  final  output  similarly  to  the  turning  radii  values. 
In  both  cases  an  input  value  of  zero  is  assumed  to  mean  no 
change  is  required.   In  the  case  of  turning  radii,  the 
default  value  is  used.   In  the  case  of  discharge  boundaries, 
the  calculated  value  is  used. 

The  PRESIG  input  deck  con*  ists  of  the  cards  given  in 
Table  A- 2  in  the  specified  order. 

The  PRESIG  program  code  is  given  in  Table  A- 3. 
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TABLE  A-l 
Default  Radii  Used  in  PRESIG 


Angle  of 
Turn1 

Turn 
Type 

Default 
Radius 

135° 

Right 

27  ft. 

90° 

Right 

30  ft. 

45° 

Right 

70  ft. 

45° 

Free  Left 

70  ft. 

45° 

Delayed  Left 

50  ft. 

90° 

Free  Left 

40  ft. 

90° 

Delayed  Left 

30  ft. 

135° 

Free  Left 

27  ft. 

135° 

Delayed  Left 

27  ft. 

Angle  of  turn  is  measured  from  the  extension  of  the 
centerline  tangent  of  the  approach  link  to  the 
corresponding  tangent  on  the  receiving  link. 
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TABLE       A- 3 
PRESIG     PROGRAM      CODE 

r.. ............................. ..,.,....,...,,,... ....... 

r. .............................................. .,......., 

c 
c 

C  P    9    E    S    I    G 

c 
c 

C  A  PRELIMINARY  GEOMETRY 

C  nryrpMiNATION  PROGRAM  >CR  USF  HTTM 

C 

C  SIGNET 

r. 

r. 


P^OC-PAM    maih     (  INPIJT  ,  OUTPUT  .PUNCH,  TAPE5  =  I NPUT , T 4PFS  =  OUTPUT , 
1  Tfi°E7=PUNCH) 


OT MENS I  ON  I  TYPE (99)  ,  JT  Y°E  (99)  ,  IOPP  (9  9,  5 >  ,NMRRK  (?  )  ,  JPARK  (  99)  , 
1NCLAKE(99),P(6),XLINK(99,3> 

COMMON/  A  /OB  (91)  ,CIR  90(99),  RAO  (99, 6)  ,080(99,9)  ,  BET,  I  NPT  (  99,6)  , 
1  ST"LINF(99),09U0RY(99,6),NREC(99,f.) 

C0HPCN/9/ELPARK(99),PARKW,WIDTH,H(99) 

C0"MCN/0/LN«Anj(99> 

C0WM0N/D/FLN0LM9O) 

OIMFNSION  <SH(f  ,7, S) 

HTMENSION  ONEH  (99, S) 

DIMENSION  FLPARKL(19),FN(99),0GNNEW(99,6) 

PEAL  LLAN(99, 3) 

INTECFR  TYPE 

PATA  NMPRK/3HYES, 3HN0  / 

OATA  R/30.,  50.  ,50.,  70.  ,  10.  ,1*0./ 

R    CCMAINS    OFFAUlT    RADIUS    VALUES 

OATA  KSMjf  ?jj) ,  it  ,5,0,7  ,  0±0_,  <♦  ,  5  ,  0,7,?  ,0  ,«>t5,0t  0,?,0,0  ,  8,0,7,?,  0,  »t5,0 
1  ,  f  ,  1  i  •  0  ,  ?  ,  3  ,  i*  ,  5  ,  0  ,  7  , 1 ,  0  , '<* ,  5  ,  0 ,  7,?,  3,<4,5,0,0,?,3,fl,b,0,7,3,0,<»,5,0, 
30,l,3,<»,5,0,0,6»0,?,0,i»,5,b,7,0,0,<.,5,6,7,?,0,l»,5,0,6,?,0,0,0,6,7, 
i.0,0,ii,5,0,6,0,0,<»,5,6,8,6»0,l,?,i.,5,0,7,lf0,<»,5,0,7,l,?,*.,5,0,0,l, 
52,0,0,0,7,l,0,<.,5,0,0,l?»0,?,0,i»,5,7,8,n,0,<»,5,7,a,2,0,<»,5,0,6,?,0 
6,0,0,7,8,0,0,i.,5,0,8,l?»0,l,?,'»,5,f,7,l,0,<.,5,6,7,l,?,<»,5,0,6,l,?, 
7  n  ,0>t,7,l,0,<*,5,0,^,l?«0  f  2  i  3,  <.,5,7,8,3,0,«,,^,7,f>,?,3t'.,5,0,a,?>3t0 
8, 1, 7, 8, 3, 0, <•, 5,0, 8,  1?»  6, 1,3, 0,0, 6, 8, 1,3, 0,0, 0,8, 1,0,  0,0,  6,8,1,3, 
90,  0,0, 6, 3, 0,0,0, 6, 1,  1,0,0,0,0, 6,3,0,0, 0,0, 8/ 


OSTA  IPNCH/1/ 


IPNCH*0  PRODUCES  NO  PUNCH  OUTPUT 


I«NCH#0  PRODUCES  PUNCH  OUTPUT 

DO  90  L»l,99 

DO  85  1*1,9 
85  090(1, I)«0. 

DO  9fl  I«l,6 

R»O(l,I>«0. 
90  P*-GlNPT(L,I)sO. 

K*TC»RO*l 


156 


TABLE      A  - 


cont 


RrAn  (5,1)  TYPF  ,N0l IUK, WTOTH,PAPKW,NOUTPT 
1  roPhiT  (Al,«»X,I?,F'S.n,F5.0,I*»l 

POOTPSM  PAPAfryrpS  CARD 

T  *  P  F  =  CAP')  T  Y  p  F  (A) 

N0LINK=  NO.  OF  LIN<S  IN  NFTWORK 

W!Pfl-=  MTTWOPK -HTnr:  LANF  MinTH 

P1PKV.  =  NM  WORK-WlDr  PARKING  LANF  WIDTH  

N0UTFT=  NUMBFR  OF  OUTPUT  LINKS 

IP  (TYPP.NP.1HA)  C\LL  OIAGNd  ,KNTCAR0) 

WPT1E  (6,?)   NOLlNK, WTOTH,PflPKW 
->  PTPKST  (1H1,I»X,1?3(1H»)  ,/5X,i?5(lH»)  »///5*X, 'SYSTEM  GEOMETRY  DFTER 
1  MTNATION*  ,///$*, \?<i  (1H»)  ,/?X,  1  ?5  (1H')  f // ///?0X ,» NUMBER  OF  LINKS  = 
?♦,  H  ,//?FX,  'LANF  WIDTH  r  »,Fi..O,'  FFFT  ',/> 1 7  X  ,  'PARKING  LANE WIOTh 
*  =  ♦,Fu.n,»  FFFT»,//////?nX,»INT.  TYPE' ,5X, 'LANES', 5X, 'LANF  LENGTH 
<♦  (l-3)'t9Xf»0PPCSIN'*.  LINKS  (  1-5)  ♦,  1*.X,  'PAPKING'fSX, 'ADJ.  LINK'///) 

TSTAPT  =  N0|JTPT  +  1 

DO   1?0  LINK=1 , NOLINK 

READ  (*,  ^)  TYPC,L,ITYPE(LINK),JTYPF(LINK),N,(LLAN(LINK,I),I*1,3), 
lCUPPC(LINK)  , TPARKP, IPA9KL, ( I0PP(LINK,I>  ,1*1,5)  ,L NK AD J ( L INK)  ,  (NRFC< 
'Lit'*, I)  ,  1  =  1  ,6) 
1  FOPPAT  (  Al,  IX,  I?, IX,  II, Al,  ri,3F*».0,F1.0,?A3,  1TI?) 

LINK  VARTATL^S  CARDS 

TYPF=  CAPO  TYPE  (B) 

L~    LINK  NUMBER 

ITYPCr  INTFRSECTION  TY°C,  NUMERICAL 


TYPF=  C 
L=  LINK 
ITYPCr 
JTYCF= 
N  =  NIlMfi 
LLAN  =  L 
INTFFSF 
C^NTFP 
CU»PP= 

I»APK= 
IQF'Ps  0 
COUNTER 
LNKAT Js 
N'EC=  R 
AIT.  FRO 
ANP  LAN 
RIGHT  T 
?.  CNF 
5  AND  6 


APO  TYP 
NUMBER 
INTFRSE 
INTFRSF 
rp  of  l 
ENGTM  0 
CTION. 
OF  INT^ 
OTSTANC 
PARKING 
PPOSING 
CLOCKWI 
A0JAC6 
CCEI VIN 
CFOING 
E  2,  AR 
URN  IS 
LFFT  TU 


CTION  TY°C,  NUMERICAL 
CTION  TYPE,  ALPHABETICAL 

ANES  IN  LINK  . 

F  EACH  LANE,  CENTER  ~CF  INTERSECTION  TO  CENTER  OF 

LEFT  AND  RIGHT  TURN  POCKETS  ARE  M^ASUR^O  FROM 
RSFCTION  BACK  TO  BEGINNING  OF  LANE. 

E  FROM  CENTER  OF  HEAO  INTERSECTION  BACK  TO  STOP  LINE 
(Y<^S  OP  NO,  LEFT  JUSTIFIFD  IN  FIELD) 

LINKS,  BEGINNING  WITH  RIGHTMOST  AND  PPOCEDING 

SP. 

NT  LINK  (PARALLEL, PUT  OPPOSITE  DIRECTION) 

C-  LINK  FOR  EACH  OF  6  TURNS,  BEGINNING  WITH  RIGHTMOST 

COUNTERCLOCKWISF.   STRAIGHT  MOV^M^NTS,  LANF  1 

E  ALWAYS  NUMBFPED  ^  AND  U,    RESPECTIVELY.   ONE 

NUMBERED  1.  TWO  RIGHT  TURNS  ARE  NUMBERED  1  AND 

RN  IS  NUMflFRFO  6.   TWO  LEFT  TURNS  ARE  NUMBERED 


100 

110 


KNTCAPD=KNTCARC*1 

Ic  (TYPF.NF.1HP)  CALL  01 AGN ( 2 , KNTC ARO) 

Ic  (I.NF.LINK)  CALL  DI  AGN  M,  KNTC  ARD) 

Ie  (N.GT.3)  CALL  OIAGNU.KNTCARO) 

IF  (N.GT.1)  N=J 

Ic  (N.LT.l)  CALL  OIAGNf ft,KNTCARD) 

ic    (n.lt.ii  n= i 

ic     (IFAPKR.FO.NMPRK (?) )     GC    TO     100 

J°APMLINK>  =1 

GO    TC    11  fl 

JPARMLINK) =0 

J»  =  JPARK  (LINK)  *1 

FLPAPK(LINK)*FL0AT(JPAPK(LINK)) 
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TABLE    A -3,    cont 


FLPAFKL (LINK)-O. 

Tc     (IPARKL.FO. NMPRK ( 1)  )     FLPAPKL  (LINK)  =  1. 
\rLAf>r(LINK)=N 

"L.NOLN(LTNK)=FLOAT(NOLANF(LlNK>) 

u  >TTF     (&,<♦»     L,  ITYP*U)  t  JTYPE(L)  , KCLANF (L) , <LLAN(L , I >  ,1=1,3)  ,  <IOPP< 
1L,T),T  =  l,t.),NMFPK(J°),LNKADJ(L) 
n    ocpat     (10X,»LlN*»,I3,7X,Il,Al,10XtI»,6Xt3(F<*.0,  SO  ,5X  t5  <I?  »  3X)  ,  11 
IX, A?,10X,I2) 

JTYPF (LINK) =1 

JTYPF  (LIMOs? 

JTYPF(LIKK)=3 

JTYPf  (LINK)  s(, 

JTYPF(LINK)=5 

JTYPE(LIKK)=6 

JTYPF(LlNK)=7 

JTYPF(LlNK) =8 


Ic 
I- 
lr 
lc 
Ic 

IF 
Ic 
IF 


(JTY°F  (LINK)  ,E1.  1HA) 
(JTYP«-(LINK)  .*"Q.  1HB) 
(JTY^r  (LINK) .FO. 1HC) 
(  JTYQc (LINK) ,FQ. 1HD) 
(JTYPF (LINK)  .FQ.1HE) 
(JTYPF  (LI NK).PQ.1HF) 
(JTYPf (LINK) .FT. 1HG) 
(JTYPC (L INK)  .CO. \mh) 


1'0  CJNTINIJC 


1?5  RCAC  (5,5)  TYPE.LHOLH,  (P AO ( LHOLD  ,  I )  ,1=1  ,6) 
5  rpp*BT  r«l,?X,I?,lX,fiCr<».l)  ) 

•^CIU<:'  CAPO 

TYPfr  05P3  TYPE  (C) 

LMCLC=  LINK  ON  WHI^H  PRESET  RAHILS  IS  TO  BE  USFO 

l\r>-    PA1TUS  OF  C4CH  OF  SIX  POSSIPLF  TURNS.  RAf)=0.  CAUSES  NO  PRESET, 

•jcpycc  MUST  pf-  cON^LUHEn  WITH  AN  END  (COL.  1-3)  CARD 


1'b 
1?7 

i  ^a 


1  35  DO 
L- 
IF 

NO 
FN 

IF 

Ic 

^FN 

138  HA 

GO 
1^9  WA 
140  W( 

no 

IT 
JT 
L  = 

IF 

WA 

GO 

1<*1  WA 

\k?  CO 
GO 

150  no 

155  Ie 


(FOF, 

TT APD= 

l.L  PI  A 

TC  13 

TFflPOs 

(TYPF 

(TYP- 

TC  1? 

1W0  L 

LNKADJ 

(L.Fl 

L^OLA 

(L)=FL 

(FN(L 

(LLAN 

(L)-l 

dj=wio 

TC  Ik 

p.j=fl° 

LINK)= 

1000 
=ITYPE 


5)  1?6,1?7 
KNTCARD+1 
GN(5,KNTCA?n) 
c 

KNTCARP+1 

.E0.1HE)  C,1    TO  n? 

•N^.IHC)  C^LL  niAGN(fc,KNTCtRO) 

e; 

INK=ISTA°T,NOLINK 

(LINK)  

.0)     GO    TO    13" 

NF(L) 

NOLN(L) 

)  .FQ.l)     GO    TO    13« 

(L.NOL) .LT.LLAML,NOL-l>  .CP.LLAN(L,1).LT.LLAN(L,2))     FNUX 


=JTYPC 

LKKAD  ) 

(L.EQ 

oj=hio 
tc  n» 

OJ*FLP 

NTINUE 

TO     (1 

155    I 

(RACK 


TH»FN(L)+PARKH»FLPARK(L) 

0 

AR*L(LINK)»PAPKW 

WAD J*WIOTH»FLNOLN (LINK) ♦PARKW'FLPARK (LINK) 

LINK=ISTAPT,NOLINK 

JLINK) 

(LINK) 

(LINK) 

.0)     GO    TO    Ul 

TH»FN(L)+PARKW»FLPAR<(L) 

■> 

ARKL (LINK) 'PARK* 


50,19H,'5  0,3?0,36  0,«»00,<»50,5?0)     IT 
LlN«f,I)  .rrj.O.)     »AO(LlNK,I)«R(I) 
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TABLE      A-3,     COnt 

r,1    TC    (170,170, 180,  170,17(1)    JT 
171    r-NfieC<lTN«:,6> 

G"<0<N,6>  =DqOLT°0(LlNK,5,N) 

rPO(IS7>=OBOLT<30(tINK,6,N> 

Ir     (JTYPF(LINK) .FQ. 2)     GO    TO    1000 
lflO     N=NREC(LINK,1) 

D°0(N,2)=08  0RT90(LINK,1,N> 

GO    TC    1000 
190    IF     (JTYPF  (LINK)  .EQ.2.0R. JTYPE (LINK) .EQ.  5  .  ANO.R.AO  (LINK,  1)  .EQ.O.) 
1RAD(LINK, 1) =  R(2> 

HO    195    1=1,6 
195     IF     (PADaiNKjI)  .EO.O.)     RAO  (LINK, I) =R ( I ) 

GO    TC    (200, 200, 220,200, 229, 2«»0)     JT 
?00    N=NPFC(LINK,6) 

O9O(N,6)=O8OLT90(LlNK,5,N) 


D9O(N,7)=OBOLT90(LINK,6,N) 

IF  (JTYPF (LINK). FQ. 2)  GO  TO  229 
220  N=NREC(LINK,1> 

DflO  (N,2) =DBORT90(LINK, 1,N) 
229  N=NREC(LINK,1> 

NT  =  1 

GO  TC  212 
?J0    N=NREC(LINK,2) 

NT  =  2 
2?2  090(N,3)  =Or»ORT2(LINK,NT,N) 

GO  TC  1000 
?t»Q  N=NPFC(LINK,1) 


IF  (RAD(LINK,1).FQ.R(1>)  RAD (LINK , 1) =27 . 

IF  (RA0(LINK,2)  .F3..R(?>)  R AD ( LINK, 2) *R ( 1 ) 
090  (K,1)=DB0RT1 (LINK, 1,N) 

GO  TC  "23  0 

250  IF  (JTYPE(LINK) .NF.3.ANO.JTYPE(LINK) .NF.5)  GO  TO  251 

Ic  (RA0(LINK,5)  .FQ.O.)  RAD(LINK,5)«R(3) 

IF  (PA0(LINK,6) .FQ.O.)  R  AO  (LINK  ,  fc)  «R  (I,  ) 

GO  TC  25*, 

251  IF  (JTYOF(LINK)  .NE.6)  GO  TO  25<. 


IF  (RAD(LINK,5)  .FQ.O.)  RAO(LINK,5>«25. 

IF  (RA0(LINK,6) .FQ. 0.)  RAO ( LINK , 6>*25. 

2_5>  DO  255  1=1,6 


265  IF  (BAD(LINK.I) .FQ.O.)  fl AO (LINK,  I) »R(I ) 
GO  TC  (260,260,280,260,290,310)  JT 

260  N*NfiEC(LINK,6>  

D90(N,6)=DBOLT90(LINK,5,N) 
D9O(N,7)=OBOLT90(LINK,6,N> 
IF  (JTY»E(LINK) .E0.2)  GO  TO  290 


280  N*NRFC(LINK,1) 

0"»0(N,2)=OBORT90(LINK,1,N) 
290  N=NPFC(LINK,5) 

NT  =  3 

IF  (JT.F0.3.0R.JT.FQ.5)  N»NREC (LINK, 6) 

IF  (JT.EQ.3.0R.JT.FQ.5)  NT*5 


O^O^,*,)  =0B0LT1(LINK,NT,N) 
NT  =  flT*l 

090(*,5)=0B0LTl(LINK,NT,N) 
GO  TC  1000 
310  N=NREC(LINK,6) 

QaO(K,8)=OBOLT2('-INK,5,N) 


C°O(N,9)=0BOLT2(LINK,6,N) 
GO  TC  290 
320  IF  (RAO(LINK,1).EQ.O.)  RAO (LINK, 1) »27. 
IF  («AO(LINK,2).FQ.O.)  RAO (LINK, 2) «R (1 ) 
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TABLE     A-3,     cont. 

00     325    1=3,6 
*?5    IP     (RAPUINK,  I  >  .cQ.n.)     RAQtLINK,  I)=R(I> 
GO    Tr    (110,330  (3<»0t330,350)    JT 

331     N=NRrC(LINK,b) 

nRO(N,6)=OROLT°0(LlNK,b,N> 
09  0  (N,7) =DROLT90(LINK,6,N) 

IF     (JTY°F(LINK)  .TO.?)     GO    TO     35  0 
31,3     N=NRFC(LINK,2> 

D90(N,2)  =DOORT90(LINK,  2,N)  

351     N=NREC(LINK,T) 

DTC(M,1)=DR0RTKLINK,1,N) 

go    tc    noo 

360    CO     365    1=1,? 

^66     Ic     (RAD(LlNK,T)  .CQ.  0.)     PAD(LlNK,I)=R(I) 

IP     fPAO f LINK ,71  .^0.  1.)     RA0(LINK,3>=R(5) 

IP      (PA0(L~INK,4)  .FQ.  0.)     RA0(LlNK,4)=R(6) 

Ic     <RA0(LINK,5) ,rQ. 1. )     RA0(LlNK,5)=25. 

IP     (RAO(LINK,fe)  .FQ.  0.)     RA0(LINK,6>=25. 

GO     TC     (370,  370,380,  370, ''SO)     JT 
X70     N  =  NPFr(l_INK,5) 

n°0(N,6>  =  090LT9KLINK,  3,N)  

0^0  (N,  7)  =DOOLT90  (LINf  ,«»7NJ 

Ic     (JTY»r (LINK) .FQ.2)     GO    TO    *90 
»an    N=NPEC<LINK, 1) 

03O(N,2)*DRORT5IMLlNK,1.,N) 
311    N=NPEC(LINK,b> 

D90(K,8) =DROLT2(LlNK,5,N)  

0<>0(N,9)=DROLT?(LlSK,6,N> 

GO    TC    in  no 

U  0  0  ic  (  JTYPE(LINK-)  .FT.  3  .  OP  .JTYPF ( LI NK)  . FQ . 5 . AND . R AO (L IN*, 5 >  .EQ.O.)  PA 
1D(1  INK, 5)  =  R(3> 

Ic  (JTY°P(LIN<)  .FQ.  I.OR.JTYPE(LINK)  . FQ . 5 . AND .RAO <L INK,6 )  .FQ.  0.) 
1R40(LTNK,6>=R<4)  _  _  

Ic  (RAO(LINK,1).FQ.O.»  RAO (LINK, 1) =27. 

IP  (RAO(LINK,2)  .FO. 0.)  P AD ( LINK , 2) =R ( 1) 

DO  4.05  1  =  3,6 
U0b  IP  (RAO(LlNK,I)  .EQ.O.)  PACXLTNK,  I)=R(I) 

GC  TC  <<*10,t»10,<»20,<»10»*»30)  JT 
410  N=NREC(LINK,6) 


ORO(N,6)  =  D3nLT<30(LlNK,5,N) 
O9O(K,7)=DBOLT90(LlNK,b,M 
IP  (JYYPF  (LINK).«"Q.  2)  GO  TO  430 

(♦20  N  =  NREC(LINK,2) 

C9C(K,2>  =OROPT90(LINK,2,N) 

<*  30  N=NECC(LINK,1) 


ORO<*,1>=D80PT1UINK,1,N) 

N=NfiPC(LINK,5) 

IF  (JTYPF(LINK) .F0.3.0R.JTYPE(LINK).F0.5)  N* NRf C (L I NK, 6 ) 

0°0(N,4>  =DR0LT1(LINK,3,N) 

09  0  <K, 5) =0R0LT1 (LINK,4,N) 

GO  TC  1000 


450  Ic  (JTYPF(LINK)  .Nr.2.ANO.JTYPE(LlNK)  .Nf  .6)  GO  TO  454 

Ic  (FAO(LINK,l ).En.0.>  RAO (LINK, 1) «R ( ?) 

454  DO  459  1=1,6 

IP  (I.GT.2)  GO  TO  455 

Ic  (RA0(LINK,I)  .FQ. 0.)  RAD ( LINK , I) «R (I ) 

_  GO  TC  4«>9 _  

455  U  (I.GT.4)  GO  TO  *56 

Ic  (RADUINK,  I)  .FQ.  0.)  PAD(LINK,I>«R(I+2> 

GO  TO  45<a 

456  Ic  (RA0(LINK,5>  .EQ.O.)  RAD (LINK , 5) *25. 
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TABLE      A     3,      cont 


le     (PA0(l INK.b) ,F0. 0  .  )     RAH (LINK, 6) «?5 , 
hc9    CONTINUE 

GO    TO    <<«60,<»601.)»70>'»60|5iO)     JT 
s61    N=NRFC(LINK,5) 

n,,P(N,6)=nROLT90(LlNK,i,,M 

DcO(N,7)=OROLT°0(LlNK,i,,N) 

re    (jtypf  (l  ink  )  .ft. ')    no  to  no 

(.7(1  N=NPFC<LINK,1) 

0"C(N, 2) =  0^0^  90  (LINK, 1,N) 
l4«(j  N  =  NREC<LIN><,2) 

0^0  (N, 3)  =DR0RT?(LINK,2,N) 

GO  TC  50  0 
500  N?NRFC(LINK,6) 

09  0  (N, 8)  =0R0LT?(LI^K,5,N) 

DB0(N,9)=0ROLT?(LlNK,6,N) 

GO  TC  110  0 
MO  N=NREC(LINK,1) 

D'0(K,3) =OBORT?(LlNK, 1  ,N) 

GO  TC  500 
520  IF  <JTYPF  (LINK)  .EfT.it. OR.  JTYPF(LINK)  .E0.6)  GO  TO  525 

IF  (PAQ(LINK,  3)  .EQ.  0.)  RAD  (LINK,  3>*9.(3) 

IF     (RAD<LINKf<t)  .FQ.  0.)     RAD  (LINK,  M  »R  <*t) 

IF     (PAO(LINK,5>.FQ.O.)     RAD(LlNK,5>=?5. 

Ic      (PAn(LINK,6)  .FQ. 0.  )     PAO(LINK,e)=?5. 

GC  TC  5^0 
525  Tp  <RAD(LINK,5) .EO. 0.)  RAD (LINK , 5) *R (?) 

Tc  (RAO  (LINK,  6  >  .FQ.O.)  9A0  (L  INK,  fc)  «R  («,  > 
53fi  TF  (JTYOF(LINK)  .F0.5.0R.JTYPF  (LUK)  .PQ.7)  GO  TO  5S5 

IF  (RA0(LINK,1) .EO.O.)  9AO(LINK,l)*?7. 

IF  (BAD(LINK,2)  .EQ.O.)  RA0(LINK, 2>«R(?> 

GO    TC    5<»0 
5*5    Ic     <RA0<LINK,1) .EO.O.)     RAD (LINK,  1) «9 (?) 
5^0    GO    TC     (550, 500,550,551  ,5C 0  ,551  ,5f0 >     JT 
c50    N=NPFC(LINK,5) 

NT  =  3 

GO     TC    555 
ecu     K=NCCC(LlN<,t) 

NT  =  5 
e=5     0"0(N,u) =010LT 1<LINK,NT,K)  

NT  =  M  +  1 

0*>oa,&)=n80LTttLlrf<»NT,M 

Ic     (JTY^f  (LINK)  .EO.it  .0*.  JTYPF(LINK)  .FQ.6)    GO    TO    570 
ffO    N-NFFC(LINK,6) 

n°P(N,8)=DBOLT?(LlN<,5,N) 

D90  (N,9)  =  DR0LT2(LHK,6,N>  

570  GO  TC  (5P0,5«0  ,580, 5*0,590,580,590)  JT 
r10  M=NPEr(LINK,l) 

0°C  (N,l)  =D90RT1(LISK,1,N) 

IF  (JTY°E(LINK) .F0.3.0P.jTYPF(LINK) .E0.6)  GO  TO  1000 

N=NFFC(LINK,2) 

GO  TC  60  0  

590  N=NR£C(LINK,1) 
£00  0"0  (fv,3) =  DR0PT2(LINK,N,M 
1000  CONTlNUr 

DO  1105  L=l,NOLINK 
OP  (L  )  =  0. 

CO  1100  I0R=1,°  

Ic  (0PO(L ,103)  .GT.1B <L) )  OR (L > =0R0 <L , IOB) 
1100  CONTINUE 
1105  CONTINUE 

00  1?10  LsISTART.NlLlN" 
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TABLE    A-  3,    cont. 


NO=NCLANF<L> 

GO     TC     < 11 13 , 11 ?0f 11 
1110     XLIKKfL,  D^LLAN  (Ltl 

XLINK(L,  ?>  =  0. 

X  L  I  K  K  ( L  ,  3 )  -  0  . 

GO    TC    i?no 
1  1  ?0    Ic     (LLAN<L, 1>-LL»N( 
inn     XL  IKK  (L,  1  >  =  LLAML,1 

XLIKKJLj ?>=LLAN(L,' 
1 1 *5    XLIKK(L, 3)  =  D. 

r,n   to   i ? no 

1H.0  XLIKML,  1  )  =  LLAK(L,  1 
XLINK(L,',)  =  LLAK(L,? 
GO    TC    1135 

1150  XLIKK (L, 1)=LLAN <L,l 
XLIKML  ,  ?)=LLAK  (L,"» 
GO    TC    1135 

1160  Ie  (LLAN (L, 1 ) . GF.LL 
Ic  (LLAN(L, 2) .GF.LL 
GO     TCHAD 

lim  XLlNML,  1>  =  LLAN(L,1 
IP  (LLANU,  2)  .LT.LL 
XLIKK  (L,  ?)*LLAN(L,> 
I^     <LL«N<L, 3) . EO.LL 

1171  XLIKML,  3)=LLAML, 3 
GO    TC    1?!J0 

1172  XLIKML,  3)  =  LLAML,  5 

go   fc   l'no 

117*     XLIKML, 2>  =  LLAN(L, 2 

Ic     (LLAM(L, 3) .ECU. 

GO     TC     1171 
1175     XLIKML, ?)  =  LLAN(L, 2 

XLIKK (L, l)=LLAN(Ljl 

IF     (LLAN (L, 3)  .EO.LL 

GO    TC    1171 
1  180     XLIKML,  1  J  =  LLAML,l 

XLIKK  <L, 2)  =  LLAK' (L,2 

GO    TC    1172 
1 20  0_C  ON  TINUE 

STPLINE(L)  =  A<1AX1(XL 
1210     CCKTINUF 

00     1<»00    L=ISTA»T,NO 

I=ITYPE(L) 

J=JTYPE(L> 

00    1<«00    NT=1,6 

KGO=KSW(NT, J, I) 

IF     (KGO.FQ.O)     GO    TO 

GO  TC  (1300,1310,13 
1300  CALL  PT0IAG1  (L,NT) 

GO    TC    1<«00 
131 0_C_S I L^  PT90     (L,N TJ 

GC    TO    1^00 
1*20     CALL    RT0IAG2     (L,NT) 

GO    TC    11,00 
13*0     CALL    ST3AITF     (L,NT) 

GO    TC    H.00 
13<»0    CALL    LTOIAG1     <L,NT> 

go   to   moo 

l.TSn    C4LL    lT90     (LINT) 

GO    TC    1MD 
1360    CALL     LT1IAG?     (L,NT) 


60)     KC 

)  -CURPO(L)-DB(L) 


L,?))     1130,11140,1150 

) -CUREO(L) 

) -CURPD(L) -DB(L) 


) -CURRO(L) -OB(L) 
) -CUReO (L)-DB(L) 


) -CURPD(L)-DB(L) 
) -CURPO  (L) 


AN(L,2) ,ANO.LLAN(L,l) . GF . LL AN ( L , 3 M     GO 
AN<L,*)  .AN0.LLAN(L,2>  .GF  .  LL  AN  (L  ,  1) )    >>0 


) -CURPQ(L)-DB(L) 

AN(L,1>)     GO    TO    1173 
) -CURPO(L)-OB(L) 
AN(L,2) )     GO    TO    1172 
) -CURBO(L) 


TO    1170 
TO    H'5 


) -CURPO(L)-DB(L) 


)  -CURPD(L) 

AN(L,1) )     GO    TC    1172 

)  -CURPO(L) -OB(L) 
)-CURBO(L)  __ 

AML,?)  )     GO    TC    1172 

) -CURBO(L) 
) -CURPO(L) 


INK(LtD  , XL  INK (1,2) ,XLINML,3>) 
LINK 


2n,133  0,13.30,13i»0,135  0,1360)    KGO 
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TABLE      A     3,    cont 


l<.nn    CONTINUE 

00    1<»30    L«1,N0UTPT 
_  N0L=KQLANE 

DO     1^4 1 0    LN=l,NOL 
11.10    XLTNK <L,IN) =U00. 

STPLINE<L»  =  <.00. 

DO     1<*?0    IT=1,6 
l«t?0    D«?NORY.L,IT)=<.00. 
IMP    CONTINUE 


00     K.39    I*l,NOLINK 
00     11.39    J=l,6 
1J»3?    ONEMT_J)=0. 
C 
H.<»0    RFA0C5.6)    TYPE  ,L,  (ONEVML, I)  ,1=1,6) 
6    FORMAT     (Alt2X,  12tMJL»0J 


C 

P  RPVISED  DISCHARGE  BOUNDARY  CARD 

C 

C  TYPE*  CARO  TYPE  (D) 

C  L»  LINK  ON  WHICH  REVISED  DISCHARGE  BOUNDARY  IS  TO  BE  USED 

C DNEwspEVISEn  DISCHARGE  BOUNOARY  FOR  EACH  OF  SIX  POSSIBLE 

C  TURNING  HOVPMENTS.   ONENsQ  CAUSES  NO  REVISION. 


Ie  (EOF, 5)  11*1*1,11*^2 
li»i»i  KNTCARD=KNTCARD*1 

CALL  0IAGN(7,KNTCA30) 

GO  TC  \i*t*<i 
11*^2  KNTCA9D=KNTCAR0*1 

IP  (TYPE.EQ.1HE)  GO  TO  lkH<i 

If  (TYPE.NE.1HO)  CALL  OIAGN  ( A,  KNTC»*f.> 

GO  TO  11*1*0 
1*1.9  CONTINUE 


00  1-»51  I*1,N0LINK 

DO  11.51  J«l,6 
1*451  IP  (CNEH.I,  J)  . NE.O.)  PSN0RY(I.J>«ON€H<ItJ) 

00  1«.5<.  I*1,N0LINK 

00  1*.5«»  J*l,6 
Iks'*    BGNNEW(I,J)»Q. 


C 
1«.S5  RCAD(5,15)  TYPE,L,(BGNNFM(L,I)  ,I»1,6) 
15  PORfAT  (Al,?X,I2_.6P«i.0» 
C 

C       RFVISEO  BEGIN-TURN  POINT  CARD 
C 


C  TYPE=  CARD  TYPE  (F) 

C  L=  LINK  ON  WHICH  REVISED  BFGIN-TU*N  POINT  IS  TO  BE  USEO 

C  9GNNEW*  REVISED  BEGIN-TURN  POINT  FOR  EACH  OF  SIX  POSSIBLE  TURN 

C  TYPE*.   RGNNEW=0  CAUSES  NO  REVISION. 

C 

C         


IF  (EOF, 5)  H.56, 1*57 

11.56  KNTCARD=KNTCARD*1 
CALL    OIAGN     <7,KNTCAR0) 
GO    TC    1<.59 

11.57  KNTCAR0=KNTCARD*1 

IP     (TYPE.EQ.1HS)    GO    TO    1*»58 

IP     (TYPF.NF.1HF)    CALL    OIAGN     (8.KNTCAR0) 
GO    TC    1<.55 
11.56    00     1*iS9    I»1,N0LINK 
00    1*59    J»l,6 
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TABLE    A-3,    cont. 


1<.59    IP     (PGNNFW(I,J).NE.O.)     BEGINPT  ( I ,  J)  =BGNNEW(  I ,  J) 
WRITF    (6,10) 

10  FORMAT     (1H1,/////23X,  'SUMMARY    OF    GEOMETRY    INPUTS    TO    SIGNET*,/////? 
17X,«<;TOP»,l<»X,»UANE    LENGTH*,  ?<»X,»DISCHARGE    BOUND ARY*,/27X,* LINE*, 
?1?X,M*,6X,*?*,6X,*3*,13X,*1*,6X,»2*,6XI*3*,6X,*<»*,6X,*5*,6X,*6*.6 

DO     1<450    1=1,N0LINK 
U.50    WRITE     (6,11)     L,STPLINF(L),  (XLINK(L,I)  ,1  =  1,3)  ,  (09N0RY (L , I ) ,1  =  1,6) 

11  F  0  RMflT     (IPX,  •  LINK*, 13,  1  OX  ,fk  .  0,1 0  Xj  3  (Fi»  .  Q  ,  3X)  ,  7X  ,  6  (F».  0  ,  3X)  ) 

W&ITE    (6,1?) 

1?    ^OPMAT     (////////35X, 'BEGINNING    POINT    OF    TURN* , 31 X, 'RADIUS    OF    TURN* 
l,/2  9X>*l»t6X>»2»>6X,»3»,6X,»<,»f6X,»5»,6X,*6*»6X,7X,»l*»6Xt»2»,6X>* 
2T*,6X,*i,*,6X,*5*,6X,*6*//) 
00    1U60    L«ISTAPT,NOLINK 

lt*60    WRITF     (6  ,13)     L,  (BEG  INPT  (I,  I )  ,I«1,6),(RAD(L,I),I=1,6) 

13    FORMAT     (10X,*LlNK*,I3,10X,6(Fi».0,3X),7X,6(F«t.O,3X)  ) 
IF     (IPNCH.«-Q.O)    STOP 
00    1<»70    L«1,N0LINK 


1U70    WRITF    (7,1<»)     L,STPLINE(L),  (OBNORY(L,  J)  , J=l , 6) , (XLINK (I , J) ,J* 1, 3)  , 

1  (?EGINPT(L, J) , J»l,6) ,(RAO(L,I) ,1  =  1,6) 
\M    FORMAT     (I2,3X,16F<».0,/5X,6F3.0) ____ 

STOP 

FNO 


SUBROUTINE    RT0IAG1     (L,NT) 


COMMON/ A /OB (99 >,CU* BO (99), RAO (99, 6)  ,080(99,9)  ,  BEGINPT (99, 6)  , 
1       ST°UNE(99> , 0BN0RY(99,6) ,NREC(99,6) 

N*NREC(L,NT>  


IP     (DB0(N,1).LT.0B(N)>     GO    TO    100 

aFGINPT(L,NT)=STPLINE(L)*CURBD(L)-DB(N) 
'DqNORY(LtNT)  =  BEGINJT(L,NT) +.75*1 .  1<,159*RA0(L ,NT) 

RETURN 
100    DX=OB(N) -OBO(N,l) 

BEGINPT(L>NT)=STPLINE(l)*CURBO(L)-OBO(Ntl) 


09NDRY(L,NT>=BEGIN»T(lM.75*3.H»159*R.A0a,NT)*DX 

RETURN 

FND 


SUBROUTINE    RT90    <L,NT> 

COMMON/ A/D8  <99 )  ,CtJR80<  99),  RAD  (99, 6)  ,080(99,9)  ,9fGXNPT  (99,  6)  , 
1       STPIIN€(99> ,0BN0RY(99,6) ,NREC(99.6) 


C0MM0N/B/FLPARK(99) , PARKW, WIDTH, M (99) 

N=NRECU,NT> 

0  X  =  0B(N) -0B0(N,?) 


BEGI»iPT(L,NT)«STPLTNE(L)»CURBD(L)-«»CN)/2.*FLP«tK(N)»PARKM*»<I0TH/2. 
1-RAD(L,NT) 

0qN0RY(L,NT)«8FGINPT(L>NT)».S»3.1»H»*EA0<(.,NT»»0X 

RETURN 
END 


SUBROUTINE    RTDIAG2    g,HT) 


C0HB0N/A/0fi(99),CUR8O{99>,RA0(99ti),0BO(99,9) , BEGINPT (99 ,6) , 
1       STPtI*E(99»,0BN0R.M99,6) ,NREC(99,6» 

COHWCW/B /ftP ARK  (99)  ,  PARKN,  NIOTM ,  W<99) 

N»NREC(L,NT) 
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TABLE  A  3,  cont 


DX«M(N)  -0«0(N,3) 

RfGINPT(L,NT)*STPLlNE(l)  »CURBO  (L  >-RA0(  L  ,NT  I  »TAN(  3  .1*.  15  9/8  .)  - 

1  <W(M/2.  -WIDTH/3.  -FLPARMN)»PARKN)»TAN  (3.  H.1S9/8.) 

D1N0RY(L,NT)=BEGIN°T(L,NT)  ♦.  25M.  1*1  M»  RAD  (C  »  NT)  »DX 

RETURN 
END 


SUBROUTINE  STRAITE  (L,NT) 
CCHPCN/A/D9(99),CU9B0(99),RAD(99,6>  ,DBO(99,9)  ,9EGINPT (99,6)  , 

1   STPIINEC99) >08NnRY(99,6) ,NREC<99,6)        

N»NREC(L,NT) 

D9N0RY(L,NT)*STPLINEU)*CURBD(L> *0B(N) 
RETURN  


END 


SUBROUTINE  LTOIAG1  (L.NT) 

COMMON/ A /OB (99), CUR  BO (99), RAO (99, 6), 080(99, 9) ,BEGINPTf99,6)  , 
1   STPLINF(99> , DBND<Y(99,fc) ,NREC(99i6» 

CCH*CN/B/FLPARM99)  ,PARKK,*IOTH,N  (99 ) 

N»NRFC(L,NT) 

NHsKT 

IP  (NT.EQ.5)  NT=3 

IP  (NT.E0.6)  NT=5 

OXO  =  0B(N)-OBO(N,<») 

0*F«CB(N)-OB0(K,5> 

BEGIKPT(L,NT)»STPlT.NE(D ♦CURBO (L ) -RAO( L ,NT)  »TAN( 3 . 1% 159/8 . )  ♦ 
1  l.»l<»»(MtN)/2.-(FLPARK(N)»PARKM«'WlOTH/2.)) 


BFGINPT(L,NT*l)=STOLINF(L)*CURB0(L)-RA0(L,NT*l)»TAN(3.1«»l59/e.)* 
ll.M4*(W(N)  /2.-(FLPARK(N)»PARK»UtUCTM/2.)> 

0qN0EL*9FGINPT  (L,  NT  )  ♦  .  35*3  .  1J»159»RA0<L  .  NT)  »OXO 

09NFREF»BEGINPT(L,NT»1>*.25»3.  l"il59»R*D(l,NT*l>»0XF 
08N0RY(L,NM)»AHAXKDBNDEl,DBNFREE> 

NT«t>>» 

RETURN 
END 


SUBROUTINE    LT90    <l«HT) . 

CONHON/A/OB(99),CI«80I99>,RAO<99,6> ,D80<99,9> ,8EGINPT(99 ,6) , 
1       STPLINE199) , DBNDRY(99,6) ,NR£C(99,6) 

C0HH0N/8/FLPARM99)  .  RMXW.  NIOTM,  j___J 

N»NREC(L,NT> 

NNaNT 
_  IF    (M.EQ.S)    NT«3 

IF    <NT.EQ.6)    NT«5 

0X0«0B(N)-0B0(N,6) 

QXF«CB(N)-OBO(Nt7) 

BFGINPT(l,NT)=STPlIHF<ll*CURBO(l.>-*AO(L,NT)  ♦  (*  (N)  /2.-<FLPARK  IN) 
l»PARKH»WI0TH/2.>> 

BEGINPT(l,NT»l)«STPllWf  (U»CURBO(U -RAD  (L, NT  ♦!)»(*  (N)/2.-(FLP  ARMH 
l)»PARKH*HIDTH/2.) ) 

09N0FL=BEGINPT  (L,NT  )  ♦.  5»3.  1*15 9» RAO  (L  ,NT)  *DXO 

0qNFREE»BEGINPT(l,NT»l)*.5*3.H»189»RA0(LtNT»l)»0XF 

09NORY(L,Nt1)*AHAXl(OBN0Fl,OBNFREE> 

NT*NM 

RETURN  

END 
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TABLE    A-3,     cont. 


(99,6>,DB0(99,9>  ,BEGINPT(99,6)  , 
EC(99.6> 


(N,8)*l.«»l<»MW(N)/2. 


nn-ni __ 

IF  7nt.eq.5>    nt«3 

IP     (KT.EQ.6)    NT*5 

DXDrDB(N)-0B0(Ht9) 

DXF  =  OB(N)-DB~0(N,9> 

BEGINPT(L,NT)«STPLINE(L> +CURB0 U )-0B0 
l(FLPARK(N)»PARKW*mOTH/2.)) 

PcGINPT(l,Nm>*STPLlNECL>+CUR80(L)-D80(N,9)+l.<tl«»MW(N>/2.-( 
lFUPARK(N)»P»PKN»NI0TH/2.)) 

PqNPEL'BEGINPT  (L,NT)  ».75»3  .  1*»1S9*RA0  (L  ,  NT)  »DX0 

DDNFREE*8EGiNPT(L,NT*l)*.75»3.1«»159»RA0(L,NT»l>+DXF 

0"NORY(L,NN)«AWAX1(OBNOFL,OBNFREE) 

NT  =  NM 


RETURN 
END 


PFAL    FUNCTION    08ORT 1 (L ,NT,N) 


CO MpCN/ A/ 08 (99), CUR  80 (99), RAO (99, 6) ,080(99,9) ,9EGINPT (99,6) , 
I  ST<»LINE(99),09NDRY(99,6),NREC(99,6) 

COMMON /9/FLP * RM99)  ,  PARKH ,  WIOTH, M (99 ) 

6n0RTlaRA0(L,NT)/T*N(3.14159/e.)»(M(N)/2.-MI0TH/2.-PARKN»FLPARK(N) 
l)M.<»l<»MW(L>/?.-HlDTH/?.-PARtCM»FLPARK(L>) 

RETURN 

END 


RCAL    FUNCTION    0BORT90(L ,NT ,N> 

C0MHON/A<DB(99),CURBO(99),R*D(98>6> ,080(99,9) , BEGINPT (99,6) , 
1  STPlINE(99),D9N0RY(99,6> ,NREC(99,6) 

C0M*0N/B/FLPARK(99) ,PARKN, MIDTH, N<99> 

09OBT90*RAD(L, NT) »X(L)/ 2. -WIDTH/2. -FLPARK(L) *PARKM 

RETURN 
END 


REAL    FUNCTION    0B0RT2 (L , WT,N) 

C0KPON/A/D~8(99),CUR§0(99)*RAO(9f  ,8>,0»0(99,9)  ,BEGINPT(99,6)  , 
1  STPLINE(99),DBN0RY(99,6>,N*CC<t8,6> 


COMH0N/B/FLPARM99)  ,  PARKW,  MIQTM.  W(W) 

0BORT2«  (RAO  (L,  NT)  ♦M(N)/?.-MIOTM/f.«-fL^ARK(N)»PARKM)»TAM  (3. 1*158/8. 
1) 

RETURN  

END 


REAL    FUNCTION    0BOLT1 (L ,NT,N) 

C0HW0N/</08(99), CUR 80(99) ,RA0(99, 8), 080(99, 9) , BEGINPT(99,6) , 
1  STPLlNE(99),08M0RT(99,6),f»«EC(89,6) 
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TABLE     A-3,    cont. 


C0HN0N/9/PLPARK(99> ,PARKW,WIDTH,M(99) 

090LTl*(eAn(L,NT)  -^(N)/?.»HinTM/?.»P»tKN»«'LP»R<<N)  )  »TAN  (  3  .  1  <»189/8. 

11 

RETURN 

END 


RJL*i    FUNCTION    QPQLT90(L,NT,N) 

C0MfCN/A/OB(99)  ,CU3B0(99> ,RAD(99,6)  ,DBO(99,9)  ,«ET,INPT<99,6)  » 
1  STPLINP<99> , OTNORY  (  99 , 6 ) , NREC  (99, 6 ) 

C0M«0N/1/FLPARK(99) ,PARKN,WlDTH,W(99) 
nnOlT90  =  RAn»L,NT»-iHIOTH/?. 
RETURN 
END 


REAL    FUNCTION    OBOLT? (L  ,  NT , N) 

C0MHCN/A/D9(99) ,CUR 90 ( 99 ) , R AD < 99  ,6) ,0*0(99,9) ,BEGINPT(99,6) , 
1  STPLINE(99),n9NDRY  199,6) ,NREC(99t6) . 

C0Mf0N/B/FLPARK(99) , PARKW, WIDTH, H (99) 

C0MPCN/0/FLN(lLN(99> 

C90LT2M  (RAO(L,NT)  -W  (N  )  ♦WIDTH*FLPARK  (N)  »PARKW)  »1  .J»1<»»RA0  (L^  NT)  ♦  WIO 
1THMFLNOLN(L>-.5)-*(L)/2.*PARKW»FLPARK(L>)»1.<»1«»-RAO(L>*W(N)-NIDTM 
?-°ARKW»FLPARK(N) 

RETURN  


END 


SUBROUTINE  DIAGN(N,NCARD> 
DTMEf^SION  MFSAGK72)  ,MESAG?(72) 


INTEGER  FATAK9) 

OATA  (MESAGKI)  ,1*1,8) /80HINCORRECT  CARO  TYPE.   PROGRAM  WAS  EXPECT 
1ING  A  TYPE-A  CARD.    __  / 

DATA  (MFSAG2(I),I«1,8)/80HERROP  IS  FATAL.   PROGRAM  STOPPING. 
1  / 

C 1  T_A_  (MESAGKI), 1*9, 16 )  /  8  0  MlNCORRECT  CARO  TYPE.   PR06RAN  WAS  EXPEC 
1TING  A  TYPE-B  CARO.  / 

DATA  (MFSAG2(I) ,1=9, 16) /80MFRROR  IS  FATAL.   PROGRAM  STOPPING. 
1  /___ 

DATA  (MESAGKI), I«17,2*)/80HINCORRECT  LINK  NUMBER  ON  CARD. 
1  / 

DATA  <HESAr,?m,I«l7t?'O/80HFRR0R  IS  NCN-FATAL.   PROGRAM  CONTINUIN 
1G  WITH  POSSIBLE  ERROR  IN  LINK  OATA.  / 

DATA  (MESAGKI), Is?5f3?)/80HINCORRECT  NUMBER  OF  LANES.   MAXIMUM  NU 
1MBER  OF  LANES  PERMITTEO  IN  SIGNET  IS  3.  / 

OATA  (MFSAG2(I>,I=?5i 3?) /80MERR0R  IS  NON-FATAL.   PROGRAM  CONTINUIN 
1G  WITH  NUMBER  OF  LANFS  ASSUMED  TO  BE  3.  f 

DATA  (MESAGKI  )  ,1 »3 3 t» 0) /80HFAILU8E  TO  PJ.ACE  ENO  CARD  (COL.  1-3)  A 
1FTER  TURNING  RADIUS  DATA.  / 

DATA  (MESAr,?(I),Is33,i»0)/H0MERROR  IS  NON-FATAL.   PROGRAM  CONTINUIN 
1G.  / 

OATA  (MESAGKI),  I  =  i»l ,  *8 ) /80HINCORRFCT  CARO  TYPE.   PROGRAM  WAS  EXPE 
1CTING  A  TYPF-C  CARO.  / 

OATA  (MESAG2(I),I"»1,'»8)/80HERROR  IS  FATAL.   PROGRAM  STOPPING. 
1  / 

DATA  (MESAGKI),  I*<»9  ,56) /8  OHFAlLlRF  TO  PLACF  END  CARD  (COL.  1-3)  A 
1FTER  OISCMARGF  90UNDARY  DATA)  t 

OATA  (MFSAG?(I),I»!»9,56)/80MfRROR  IS  NON-FATAL.   PROGRAM  CONTINUIN 
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TABLE     A- 3,    cont. 

ig.  / 

data    (mfsagki  )  , i «57 , 6^) /80hincorrfct  caro  tvpf.      program  mas  fxpe 
1cting  a  tvpe-0  cart.  /     

data   <mesag2<i)  ,  i*57,6»»>/80herror  is  fatal.     program  stopping. 

1  / 

DATA  <MESAG1(I)  ,I«65  ,72) /8 0HNUM8ER  OF  LANES  SET  TO  ZERO.   SIGNET  A 

1SSUMES  EACH  LINK  TO  HAVE  AT  LEAST  1  LANF.  / 

DATA  (MESAG2U)  ,1 =%5  ,72) /8 OHFRROR  IS  NON-FATAL.   PROGRAM  CONTINUIN 

IG  WITH  NUSBFR  OF  LANFS  ASSUMEO  TO  BE  1.  /         


DATA  FATAL/1,1,2,2,2,1,2,1,?/ 
WRITE  (6,1)  NCARD 
I  FORMAT  <1H?, /5X, 125 <1H»)  ,////20X, 'ERROR  ENCOUNTEREO  II^  DATA  CARD  N 
1UMPEP»,I<.) 
INOFX=(N-l) »8  +  l 
ICNC=IN0FX*7 


WRITF  (6,2)  (MESAG1 (I) , I=INHFX , IENP) , <MFSAG?(I) , 1= INDEX , IEND) 

FORPAT  (////30X,*E*ROR  IS  •  ,8  A  10  ,/// 30X , 8A10 , ////5X , 125 ( 1H» ) ///) 

IP  (FATAL(N).EC2)  GO  TO  110 

PETURN 

STOP 

END 
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Appendix  B 


SIGNET  Program  Details 

The  following  is  a  complete  description  of  the  inputs 
required  by  SIGNET.   Input  data  for  a  simulatin  run  are 
recorded  on  code  sheets,  then  punched  on  standard  80- 
column  cards. 

The  SIGNET  input  deck  consists  of  the  following  cards 
in  the  specified  sequence,  as  indicated  in  Figure  B-l: 


Title  Card 

General  Parameters  Card 
Program  Instruction  Cards 
Vehicle  Length  Card 
Link  Parameters  Cards 

Link  Geometry  Cards 

Signal  Setting  Cards 

Turning  Probability  Cards 

Input  Volume  Cards 


(1  card) 

(1  card) 

(6  cards) 

(1  card) 

(1  card  per  link,  all 

links) 

(2  cards  per  link,  all 

links) 

(2  cards  per  link,  input 

and  network  links) 

(1  card  per  link,  repeated 

as  desired,  network  and 

input  links) 

(1  card  per  link,  repeated 

as  desired,  input  links) 
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The  following  gives  a  complete  description  of  the 
contents  of  each  card  type.   Specific  variable  names  and 
formats  may  be  found  in  Table  B-l. 

Title  Card.   This  card  allows  the  user  to  label  the 
output  with  any  alpha-numeric  label  up  to  80  columns  in 
length. 

General  Parameters  Card.   This  card  contains  general 
information  pertaining  to  the  simulation  run  to  be 
performed  and  the  network  size.   The  contents  are 
described  below: 


Field  Name 


Field  Contents 


1.   CYCLE  Amount  of  real-time  simulated  per 

simulation  scanning  cycle,  in 
seconds.   CYCLE  should  be  between 
1.0  and  5.0  seconds.   A  value  of 
2.0  seconds  was  used  in  this  study. 

Total  number  of  links  in  the  net- 
work.  NOLINK  must  be  less  than  85. 
For  larger  networks  program 
dimension  statements  must  be  changed, 

Number  of  output  links. 

Number  of  input  links. 

Duration  of  time  simulated  in  order 
to  fill  the  network  with  its 
initial  population  of  vehicles,  in 
minutes.   Fill  time  should  be 
approximately  15  minutes,  although 
this  may  vary  with  the  network. 

6.  Duration  of  Run   Duration  of  observe  time  in  the 

simulation  run,  in  minutes. 

7.  Statistical  Sum-  In  addition  to  the  automatic 

mary  No.  1        statistical  summary  which  occurs  at 
the  end  of  the  simulation  run,  up 
to  15  intermediate  summaries  may  be 
quested.   Field  7  contains  the  time, 


2.   NOLINK 


3 .  NOUTPT 

4.  NINPUT 

5.  Fill  Time 
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Field  Name 


Field  Contents 


8.   Statistical  Sum-  in  minutes  since  the  beginning  of 
mary  No.  2       observe  time,  at  which  the  first 
summary  is  to  occur;  Field  8,  the 
second;  etc.   Any  of  these  fields 
may  be  left  blank,  in  which  case  the 
program  assumes  there  are  no  further 
print  options. 

21.   Statistical  Sum- 
mary No.  15 


Program  Instruction  Cards.   This  set  of  6  cards 
contains  instructions  on  both  the  proper  times  to  perform 
several  functions  during  the  simulation  run  and  the  links 
to  be  considered  in  two  extended  bookkeeping  operations. 
The  contents  are  described  below: 


Field  Name 


Field  Contents 


Card  No.  1: 

1.  Turning  Proba- 
bility 
Revision  Time  1 

2.  Turning  Proba- 
bility 
Revision  Time  2 


10.   Turning  Proba- 
bility 
Revision  Time  10 


In  addition  to  the  initial  turning 
probabilities  read  at  the  beginning 
6f  the  simulation  run,  up  to  10 
revised  turning  probability  sets 
may  be  employed.   Field  1  contains 
the  time,  in  minutes  since  the 
beginning  of  observe  time,  at  which 
the  first  revision  is  to  occur; 
Field  2,  the  second;  etc.   Any  of 
these  fields  may  be  left  blank,  in 
which  case  the  program  assumes 
there  are  no  more  revisions  to  be 
made. 
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Field  Name 

Card  No.  2: 

1.   Input  Volume 
Revision  Time 


Input  Volume 
Revision  Time 


In  a  manner  similar  to  the  turning 
probability  revisions,  up  to  10 
input  volume  revisions  may  be  used, 
A  blank  field  causes  no  more 
revisions  to  be  made. 


10.   Input  Volume 

Revision  Time  10 

Card  No.  3: 


1.  Re- 
initialization 
Time  1 

2.  Re- 
initialization 
Time  2 


As  in  the  two  cases  above,  a  re- 
initialization of  all  bookkeeping 
variables  may  be  requested.   This 
option  is  used  primarily  in 
conjunction  with  the  statistical 
summary  option,  causing  a  re- 
initialization immediately  after 
each  summary.   Re-initialization 
after  fill-time  is  automatic; 
therefore,  it  should  not  be 
requested  here. 


10.   Re- 
initialization 
Time  10 

Card  No.  4: 


1.   Begin  Printout 


2.   End  Printout 


Primarily  for  debugging  purposes, 
a  full  printout  of  all  vehicles' 
positions,  velocities,  accelerations, 
acceleration  types ,  and  turning 
movements  may  be  specified.   Field  1 
contains  the  time,  in  seconds  since 
the  beginning  of  the  simulation 
(i.e.,  beginning  of  fill  time),  that 
the  printout  is  to  begin.   It  is  then 
made  once  each  scan  cycle  until  the 
time  is  greater  than  the  -alue 
contained  in  Field  2.   If  both 
fields  are  blank  no  printout  is  made. 
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Field  Name 


3.   Generator  seed 


Fiftld    (VtnfpnhK 


To  obtain  a  reproducable  stream  of 
random  numbers  it  is  necessary  to 
provide  a  seed,  or  beginning  number, 
for  the  pseudo-random  number 
generator. 


Card  No.  5; 

1 .  NTRACE 

2.  LKTRCE(l) 

3.  LKTRCE(2) 


16.   LKTRCE(15) 

Card  No.  6; 

1.  NQ 

2.  LQ(1) 

3.  LQ(2) 


11.   LQ(10) 


For  more  detailed  analysis  of 
travel  times  a  route  up  to  15  links 
in  length  may  be  specified  through 
the  network.   Field  1  contains  the 
number  of  links  in  the  route.   Field 
2  contains  the  first  link  in  the 
route,  Field  3  the  second,  etc. 
NTRACE  must  be  greater  than  0. 


Similarly,  a  set  of  up  to  10  links 
may  be  specified  for  queue  length 
analysis.   Field  1  contains  "the 
number  of  links  in  this  set.   Links 
are  ordered  within  the  set  by  link 
number.   Field  2  contains  the  first 
link  number,  Field  3  the  second, 
etc.   NQ  must  be  greater  than  0. 


Vehicle  Length  Card.   This  card  contains  the  parameters 
defining  the  effective  length  distribution  for  both  cars 
and  trucks.   The  contents  are  described  below: 


Field  Name 


Field  Contents 


1.   ELMN   (Cars) 


Mean  effective  length  for  cars,  in 
feet.   A  value  of  22.0  feet  is 
reported  in  the  literature  for  this 
variable. 
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Field  Name 


2.   ELSIGj^  (Cars) 


3.  ELMN2  (Trucks) 

4.  ELSIG2  (Trucks) 


Field  Contents 


Effective  Length  standard  deviation 
for  cars. 

Mean  effective  length  for  trucks, 
in  feet. 

Effective  length  standard  deviation 
for  trucks. 


Link  Parameters  Card.   This  card  contains ,  for  a 
specific  link,  lane  relationships,  link  numbering  relation- 
ships, and  the  parameters  defining  the  target  velocity 
distributions  for  cars  and  trucks  on  that  link.   One  card 
of  this  type  must  be  provided  for  each  link.   The  contents 
are  described  below: 


Field  Name 


Field  Contents 


1.   i 


2 .   NOLANE . 

l 


3 .   LANTN .  , 
1,1 


4 .   LANTN 


i,2 


Link  number  (identification) . 

Links  must  be  numbered  in  succession, 

Width  of  link  i  in  number  of  moving 
lanes  at  the  intersection  approach. 
NOLANE,.  »  1,  2,  or  3. 

Lane  required  for  turn. 

LANTN.  .  =  lane  vehicle  must  be  in 

to  make  turn  number  k. 
Turn  numbers  are  discussed  on 
page  55.  . 


8 .  LANTN .  , 

1/6 

9.  NREC.  , 

i/l 


10.   NREC. 

1,2 


Receiving  link. 

NREC.  .  =  link  which  receives  traffic 

from  turning  movement 

number  k. 


14.   NREC 


i/6 


175 


Field  Name 


15.   LREC.  . 
1  f  1 


Field  Contents 


Receiving  Lane. 

lane  which  receives 
traffic  from  turning 
movement  number  k. 


LREC.  . 
l/k 


20.  LREC.  , 

1  ,0 

21.  IOPP.  , 

l ,  x 

22.  IOPP.  _ 


Opposing  link. 

Numbering  conventions  described  on 
page  148. 


25.   IOPP 


i,5 


26.   TVELMN. 

l ,cars 


27.   TVELSIG, 


i ,cars 


2  8 .   TVELMN . 


Mean  target  velocity  for  cars,  in 
miles  per  hour. 

Target  velocity  standard  deviation 
for  cars . 

Mean  target  velocity  for  trucks, 
in  miles  per  hour. 


i, trucks 
29.   TVELSIG.      .    Target  velocity  standard  deviation 

1,   trUCKS    -     1-iMir.Ua 


for  trucks. 


Link  Geometry  Cards.   This  pair  of  cards  contains,  for 
a  specified  link,  all  information  related  to  the  link 
geometry.   The  entire  set  of  cards  may  be  obtained  as 
punched  output  from  PRESIG,  the  companion  geometry 
determination  program,  although  this  is  not  necessary.   One 
pair  of  cards  is  required  for  each  link.   The  contents 
are  described  below: 


Card  No.  1: 


8 .   DBNDRY 


i,6 


10.  XLINK.  ., 

11.  XLINK.  - 

1,3 


13.   BEGINPT.  ., 


17.   BEGINPT.  ,. 
1,6 


Card  No.  2 


23.   RADIUS 


i,6 
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Field  Name 


Field  Contents 


1.   i 


Link  number  (identification) . 

Links  must  be  numbered  in  succession, 


2.   STPLINE, 


Coordinate  of  the  stopline,  in  feet. 


3  .   DBNDRY  .  1 

4  .   DBNDRY .  _ 

if' 


DBNDRY.  ,  =  discharge  boundary  for 
'    turning  movement  number 
k. 


9.   XLINK 


i,l 


XLINK.  .  =  length  of  lane  k. 

1  /K 

(k  =  1  =  rightmost  lane) 


12.   BEGINPT.  , 
ifl 


BEGINPT.  .  =  beginning  point  of  turn 
'   number  k. 


18.   RADIUS 


19.   RADIUS 


i,l 
i,2 


RADIUS.  .  =  radius  of  turn  number  k. 
i#k 
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Signal  Setting  Cards.   This  pair  of  cards  contains, 
for  a  specified  link,  the  fixed-time  traffic  signal 
settings.   One  pair  must  be  provided  for  each  input  link 
and  each  networl  link.   The  contents  are  described  below: 


Field  Name 


Field  Contents 


Card  No.  1: 


1. 


Link  number  (identification) . 

Links  must  be  numbered  in  succession, 


2.   LCYCLEi 


3.   NOP HAS 


i,l 


Cycle  length,  in  seconds. 

NOPHAS.  .  ■  number  of  indications 
X'K   to  lane  k. 


4 .  NOPHAS .  - 

1  t  z 

5 .  NOPHAS .  , 

1,3 


6 .   NPHASE 


i,l,l 


NOPHAS.  ,  must  be  less  than  6. 
i,k 


NPHASE.  .  .  =  number  of  k 

1'3rK   indication'    to  lane 


7.   NPHASE.  ,  . 


Indication  numbers  are  defined  in 
Table  5. 


10.  NPHASE.  .  . 

1,1,3 

11.  NPHASE.  ,  , 

X  1*1 1 X 

12.  NPHASE.  0  - 


20.   NPHASE.  ,  . 

1  ,  J  ,  D 


Field  Name 


Card  No.  2: 


21.   LPHASE 


i,l,l 


22.   LPHASE.  .  - 
1  f  X  i  z 
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Field  Contents 


LPHASEi  .  .  «  duration  of  k 

'•''    indication  to  lane 
j  ,  in  seconds . 


25.   LPHASE.  ,  ,. 

1,1,0 


26.   LPHASE 


i,2,l 


35.   LPHASE.  ,  c 
1,3,5 


36 .   LOFFSET 


i,l 


37.   LOFFST.  0 


38.   LOFFST 


i,3 


LOFFST 


.  .  =  offset  to  beginning  of 
first  indication  on 
lane  k,  in  seconds. 


Turning  Probability  Card.   This  card  contains,  for 
a  specified  link,  the  cumulative  turning  probabilities  for 
the  6  possible  turning  movements.   One  card  must  be 
provided  for  each  network  and  input  link.   The  contents 
are  described  below: 


Field  Name 


1.   i 


2 .   PTURN 


i,l 


Field  Contents 


Link  number. 

Links  must  be  numbered  in  succession. 

PTURN.  ,  =  probability  that  a  vehicle 
'    leaving  link  i  will  use 


turning  movement  number  1. 


Field  Name 


3.   PTURN 


i,2 


7 .   PTURN .  , 
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Field  Contents 


PTURN. fk    -    PTUPNifk-1 


«  probability 
that  a  vehicle 
leaving  link 
i  will  use 
turning  move- 
ment Number  k. 


PTURN  is  a  cumulative  distribution. 


Input  Volume  Card.   This  card  contains,  for  a  specified 
link,  the  hourly  input  volume  and  the  percent  trucks.   One 
card  must  be  provided  for  each  input  link.   The  contents 
are  described  below: 


Field  Name 


Field  Contents 


1.  i 

2.  VOL. 


3.   PRTRUC^ 


Link  number. 

Links  must  be  numbered  in  succession. 

Input  Volume,  vehicles  per  hour. 

Percent  trucks . 


The  use  of  successive  sets  of  Turning  Probability 
Cards  and  Input  Volume  Cards  provides  for  modification  of 
certain  link  characteristics  while  the  simulation  is  in 
progress:   viz.,  input  volumes,  input  truck  percentages, 
and  turning  probabilities.   Care  should  be  taken  that 
these  sets  are  in  the  correct  order,  as  specified  by  the 
Program  Instruction  Cards.   If  revised  turning 
probabilities  and  input  volumes  are  required  simultaneously, 
the  turning  probability  cards  should  appear  first.   No 
items  except  those  appearing  in  these  two  sets  can  be 
changed  while  a  simulation  run  is  in  progress. 
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A  complete  listing  of  the  SIGNET  program  code  is 
given  in  Table  B-2.   The  program  is  written  entirely  in 
FORTRAN  IV.   Approximately  121000g  central  memory  words 
are  required  to  run  the  program  at  its  current  84-link, 
1500  vehicle  capacity?  the  size  of  the  program  may  be 
reduced  to  match  the  requirements  of  the  application  by 
reducing  both  the  link  capacity  and  the  vehicle  capacity. 
The  means  of  doing  this  is  explained  below. 

Several  routines  referenced  by  SIGNET  are  system 
routines  on  the  CDC  6500.   It  is  probable  that  the  program 
could  not  be  run  on  other  installations  without  provision 
being  made  for  supplying  at  least  some  of  these  routines 
or  their  equivalent.   They  are  as  follows: 

EXP (X) :   A  real  function  for  finding  e  . 

SQRT(X):  A  real  function  used  for  finding  X. 

ALOG(X):  A  real  function  used  for  finding  In (x) . 

RANF (A) :  A  real  function  used  to  generate  a  sequence 
of  pseudo-random  numbers  which  are  uniformly  distributed 
in  (0,1).   In  order  to  generate  a  sequence  of  random 
numbers  used  RANF  with  a  zero  argument: 

Y  =  RANF(0)  . 

In  order  to  restart  the  sequence  at  some  given  point,  use 
RANF  with  the  argument  set  to  some  positive  seed,  written 
in  octal  notation: 

X  =  17162534251617262534B; 

Y  ■  RANF (X) ; 
then  use  RANF(0) . 
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The  random  number  is  determined  from: 

.48 


where 


Xi+1  "  K  *  Xi  M0D  2 


X.jn  =  the  new  random  number, 
l+l 


X0  =  the  seed;  and 
K  =  2000000000000055364B. 

ISHFTR(X,M):   Causes  word  X  to  be  shifted  right  M  bits. 
This  COMPASS  function  is  used  in  unpacking  the  ICAR  word. 

ISHFTL(X,M):   Causes  word  X  to  be  shifted  left  M  bits. 
This  COMPASS  function  is  used  in  packing  the  ICAR  word. 

The  CDC  6500  employs  a  60-bit  word.   For  installations 
employing  a  smaller  word  revisions  would  be  necessary  to  the 
functions  IBITM  and  JBITM  (used  for  unpacking  and  packing 
the  ICAR  word,  respectively) . 

Storage  for  vehicles  is  allocated  in  a  way  that 
minimizes  the  amount  of  wasted  space.   In  its  present 
state  the  program  will  accommodate  up  to  1500  vehicles  at 
any  time.   Reducing  this  capacity  for  applications  with 
potentially  fewer  vehicles  will  result  in  reduced  field 
length  and  greater  economy.   The  reduction  is  easily 
accomplished  by  changing  the  dimension  of  the  variables 
POSN,  VEL,  ACCEL,  ICAR,  NXTCAR,  and  IPRECAR  in  common 
block  Al  and  the  variable  IHOLE  in  common  block  ZQ.   The 
dimension  id  equal  to  the  vehicular  capacity  of  the 
program. 
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If  the  program  capacity  is  exceeded  at  any  time  a 
message  is  printed  to  that  affect  and  the  program 
continues.   As  a  guide  in  determining  what  the  program 
capacity  should  be,  the  maximum  number  of  vehicles  in  the 
network  is  printed  at  the  end  of  each  run. 

The  SIGNET  program  deck  structure  is  shown  in  Figure 
B-2. 
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TABLE     B-2 
SIGNET      PROGRAM      CODE 
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ic    csiwt.ct.  isi    ;o  to  »i»o 

!<■     t*U»«Timc01««*TI  .fO.O)    GO    TO    ?».fl 
jr     <TTI«r.LT.SU,,,TI«(<rU»"<M)  >    GO    TC    '<«0 
CUH«Tir»«-L0«  1) 

1-41.1     clM«Rr     IWOL.TTI-F.SUNXNTI 
Si.;>'»NT«SU'«rNT»  t 
CUP  «TI*F  L«»C  1> 
'1.0     rTNTINUc 

1^     (1TIT.LT.  IMTI")     GC    TO    ?'0 
ie     (KNTTOM.'.T.  10)     ',1    TO    »50 

I^    (nrwot  «<nt T"ig)  .fi.m    r,o   TO   '50 

Tc     (JTI"r.LT.Nf WPC^fTTBn)  »    T.O    TC    250 

KKTTtHM  ♦««JTT«>K 

<TTf*TTI»'C/*,0-«,T4lTI»' 

WJITF     (6,5-.")     'TIH 

CUl    INITRN 
"i.0    Ic     (TTI-F.LT.TNTTIi)    GC    TO    '*0 

Ie     <»NTVOl.GT. 1")    "O    TO    ?f>0 

1^     <HFMVPL("NT VOl» .FT.d)    G"    TO    '*0 

Ic     «lTIHf.LT.i|rKWOL(«NTVOL»  1     GO    TC    ">0 

"NTVCL'l+XNTVOl 

<TI»>«TTI*»:/fcO-MnTTI" 

W«ITF     (6.S50)     «TI«" 

CUl    TNIVOL 
260    n^TINUc 

Ie     UTINF.LT.TMTItl     Gr    TO    ?70 

I*     (KNTINlT.r.T.10)     GO    TO    '70 

\c     (KFHINIT (*NTTNIT) .FC.OI     GO    TO     '70 

Ir     (TTI^r.LT.NFKlNtT(KNTTNlT) )     GC    TO    ?70 

KNTIMT»KNTINIT»1 

r»Ll  TNIT 
?70  CU'TINtl* 

If  (ITI1r.r.f  .  INITT1M  .4NT.TNTKNT  ,*O.0>  GO  TO  ?*0 

r.o  TC  ?in 

r 

c     ,..,,,............»........•••••••••••••»•••••••' 

.c 


a 

l"C 

t. 

18-.T 

A 

j  or.  p 

0 

1  «f  n 

a 

1  P7P 

A 

I'T 

A 

1  «.nn 

A 

1  a  n  C 

a 

1Q<  0 

A 

l<"f 

A 

19T 

ft 

191-0 

A 

lq'-.n 

6 

19M1 

A 

1°7  r 

A 

1<9P  o 

a 

1990 

a 

?00P 

a 

?nio 

a 

'O'n 

a 

'0^0 

A 

'nm 

a 

?nt=c 

t> 

?n<  o 

a 

'070 

a 

70R" 

a 

"1Q0 

a 

'100 

a 

'1  1  C 

A 

'1  ?P 

a 

^l  ^o 

t 

'11.0 

A 

■»l*.p 

A 

?i*n 

a 

'170 

A 

'ISO 

A 

'190 

A 

"10 

a 

"i  n 

a 

"'0 

A 

"'0 

a 

■>->!.  n 

A 

"'.  n 

A 

»?t.fl 

A 

"70 

A 

"AO 

A 

""0 

a 

"no 

A 

"10 

A 

"?C 

A 

"*C 

A 

'^«.n 

A 

"cn 

a 

"bO 

a 

?*70 

A 

"PP. 

a 

7^90 

A 

'1.00 

A 

?i»10 

A 

"»?0 

A 

'<.*0 
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Rr-INTTI4LT'r    FOP    PUN-TI*ir 


?H0    COHTINU? 

INT.KM"! 

C«LL  TNIT 
?°l)     CQNTTMUC 


SC*N  *NT  L«>0«Tf 


Tc  (!CFC^T.rO.  n.«m.IOFCNn.f  T.O)  GO  U  300 
Ie  (TTH«-#LT,TPFFST)  r,o    TO  '00 
IF  (ITI^'-.&T.T'IFFC^O)  r.o  TO  '0« 

F»LL    HP14TP 
"0    rof  TTNUF 


SU"«««»»T7r    cijh 


CUHaTT'FLPM) 

C»LL  «U"»»"  (V'LtlTTNF^l.MifNT) 

STOF 


w?0  FORK 
\r,    n 

?IC  * 

3<1M» 
mi  F1P> 
IITI» 
'INOT 
m»Q  F1PP 
lPcEo 
?CIFK 
3?SH* 
<.,     ?1 

s  SFr 

60N0 
7,    2f 
8.', 


"•••0 
?<«c0 
'l»f0 
?<.70 
2<»P0 

?<»go 
?=;oo 
>«;  i  n 
?5'0 

?i;3o 

?S%0 

'RibO 

"370 
'^P0 
?</90 
'f  0  0 
?<",  io 

?F|?0 
»f  TO 

"■ud 
'tfO 
»ftf  0 

"TO 

>M0 
»«  90 

?75K 

'71  0 

»r»o 

?7fcC 
'750 
'760 
'770 
'7«0 
?790 
?S00 
»*1  0 
?8?0 
»Btq 

"»•»!.  0 

?8r0 
?**  0 

'*7n 
?B80 
?8<»0 

'<»no 
?qi  o 
»q?n 

'930 
?9i,0 

?9*o 

?960 
?970 
?980 

?q«o 
jnoo 

3010 
30?0 
3030 

3040 
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LAN<1 
-."LT 


(TOij-i<<;t 

,       ««CfP 
,        zu    re 

ICK%/T? 

/ ( »n», 
.?/) ) 

<«JTr,*A|. 

•*«■,  I  '> 
JE,I?,»X 

tx,I*/>> 

t  qM9.c("FT 

,6*,       1M 
S",I3,»x 
11MLTNK 
-»>,HX, 
K,I1i»  X 


7t-^r«'l    =     ,,r:>.'>,     I'M    FFF*    pro    SFCONT 

lu     rrrT     PF»     ^rrirj-i    r"n.,//tnx,     IfHfFP 

S,10X,        7H-r£N    =     ,r-   .•»,        5H    PCPT.IOK,     1? 

FT,/?rtX,       fHTour-k-q,  n,        7H'""4.<    t     ,P5.», 

*      ,Fc.?,//irt,      ,rwT(,p-.rT      VPLOriTY.l^X, 

»,        UHprAN,9X,        qw~TO.     Tfv.,l^x,        *H*fAN 


T I "T »  r     "STft, ///M* , 

* ,      hM'uf-  am  N,inx, 


,t  *,  ih*,n  ,  1 7*,r 


1 1 ' 


iM'VCLCi 10X,        9HND1 
,uoFFfFT,/^nx,        f.HL 


IrX.fO 


VTNG    L  INK-LA*  c  ,t  IX,     1  T«TPTSTNr,    LINK,//? 
U'STl.'sX,        JUST*,1;*,        »MLT1,5«,        3HLT?, 
'|H,         1HI.,tX,         JM.    ,///) 

,6<I?i      l"-i  Il,<.*t  ,?"»,  j  ip.jtn 

r.r«MrTfit,//?^X,       iHr^i^x,     ^HIBNDPV     (i 
,r«.0,'.  *, 'SI*-. <1, ?*»,'*, '(ri.. o,?X),5X, SC 


'Tr»crj    tf    TIPF    s    , 


/////10X,    »?MTNITTBL    T»»r.FT    VOt  il»r-, , /) 
'////Id*,     .1.MNFM    TMW"J»«r,    epo><»PlLlTTrr 

IMUT'S) 
/////10»,     tTMSfM    TBOCtl     v*L'Mrc    «-.(T<r->rri    f  T     Tl«"«    =    ,!«.,       hm 
I 
1H1,/////?1X,     iqMHiXIHIlf    KUIlrP    ->r    vf"T;Lr)     IN    svstcm    =     ,T 


CN0 


«n!>n 
n*.  r 
*070 

to«n 

•»n°r 

'110 

»i»n 
n  7n 
'1  i»n 
7t r  0 
*1I  p 
'i  ?n 

71  M 

'i  on 
■»?nc 
7?in 

77  "1 

i?7n 

7n-  n 
t  ?  7  n 

''"0 

7->qn 
'inn 
*-»1  n 

i-»->n 

"'0 
"1.0 

77>-  o 


S'JPPCUTI^F    THIT 

CCPPm    /H?/    TTI«Fei*>  tTf1IST(*fc»f  TPTfiFlie^o^,  ,  TTriMC,TTni<;T,MST'5< 
11  »,*, lfcl 

common   /«*v  DClir(ln)  ,ofl0fw(8«.»  ,ncall  <•"•> 

rc«t»C»l    /1U/    l')UF<J«rM5,U,l'MlO»,KO 

ClcKii    /TRCE/    NTSA,:F,L"'T(SCr<15l,KCT9C(l?»tINTTPC,«:NTP4C(l7) 

COffCK    /KWNT7/    NCA*  I»0  ,K0*lTPT,  TST»»T,  JFHO,  HGCN  <*.,» 

fOrPCH    'PELAT/    ITNIARMfci.HOllN*  ,LANCAF  I  »<»,*1  ,  NOl  1NFt*.M 

OT^ENSION   HTRdO-j) 

TTTIfF«1. 

TTrl*T»0. 

oo  inn  l=i»nolin* 

NCAP(LI>n 

«^Ftk«L)»n 

TTlFF, (l>»0. 

T"»IST(L)«0. 
I"!    CALL    STIXfc     (OFLAY  <L  )  ,0E  LTF  v  I L  )  ,NCALL  (L)  .  VIE  AN,  <;,nr»  > 

CI     1?"    L«1,NTR»CF. 

CALL    STIX1     (MTR,?01.,0.,inn,IT,1  1HTRAVL    TI*F  ,  u  ,  L  INO 

KNTFAC(L)*0 

NOTPr CLI»IHTT9C 

DC  110  1*1,  105 
110  T^Tl«F(L,I)«HTo(I) 

i?o  riNTTNue 

n  130  l«i,no 

LNr.ilU) 

N"NrtANc (LN«( 


n 

1  r 

q 

?0 

9 

'0 

n 

UP 

B 

^0 

n 

f.r 

q 

?n 

B 

HO 

B 

on 

B 

i  nn 

B 

1  1  n 

•1 

I'D 

B 

i  »n 

B 

1*0 

n 

ir;o 

B 

im 

B 

170 

n 

1«0 

B 

i<>n 

P, 

?nn 

B 

?10 

B 

"0 

9 

?»0 

P 

>«i0 

P 

?50 

B 

?M 

B 

?76 
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r»LL    "?TI«1    (hts,  i  n. ,  n. ,  in,P'i«-,  1  »KUr'lF    Lc'ir-T  -j  ,  1  »  ,  i_  Ink) 
hSIC (l,L» ,1 )«MTO(T) 


TOP 

no 

•*»o 


cLPerL'TlNE  I»ITBN 

C1""C»    /=>rL«T/     LlN,:»«>(»l»l,N'»LlN<iL»N"»F  (*■.,  *>  ."lOLINt  (*■•) 
'"'WPCW     /TU<?N/     *<"-"(«;., b>  ,LPT  («.,,*»  .OTuBNin  ,  t  )  ,rT?N  I",,  ?> 
(--►-►ri,     /r«NT7/    N'"*  J  («.!,)  ,KO"T"T  ,  I  ST  fT  ,  I  cf.r>  ,*'",<-•'(  p  „  ) 
rr.,„«»,     /LINKS/     lV|Tlj(U,>|  ,IL4»    IH.,'1 

K*NfUTPTM 

r1      100     L'N.NCltNK 

W»ITF     (S,"1> 

m   i'ii  i»i,»fouTP» 

ULNf zNOtANF ( 1 1 

r,"   f    itio,i?i,t,ii,    'ilkt 

111    0TUFMX(1I«9. 
PTU6*  (I, ?»*fl. 

°tijfk  ei,ti«i. 

aTl'CK  11,1.1*1  . 

P'USMIi'  l»  1. 
PTIJPK  (I  ,t  1*1  . 

r,"   tc   i»n 

|51    OH'«MI,IUn. 

"T|lfS(T,'»*0. 

'TltONII,  'MO.t' 

°TUPK(I,«.»*1. 

PTUCK (I ,c 1*1. 

PTUfNCI,*  1*1. 
HI    CCNTTNUf 

n   i<.n  l  =  "<,vol.i>»k 

w?ITf    («>,?'»))    L«<BTU*>N(LiJ>  tJ»l,6»  i  (LlNThlli  J»  ,  J*l,»l 
1t.O    CINTIKUF 

NTlHrnHOUTPT  »1 

11     ?00    llN**NlUT,»niTN* 

Tc     <*Ol»NEH.I*»»  .r1.1»     r,n    TO    ?01 

ncl^cliwpjciwm 

N*NPFCtLlN<,3l 

Tc     (k.ri.OI    GO    TO    »00 

ti   ?nn  i^*p«i,ncl 

lr     (L#N«!.ci.T)     r.r    TO    ?10 

I?     CPT'J9N(LlN<,fc>  .  IF.PTLjcuiLlNlf,  ?)  »    r,Q    TC    1  *>  0 
151    P'TH»t. 

pipjffm. 

&c  tc  irn 

160    CNTINUF 

P"T*  (PT,J=>N»UlNlf,L»NP»»>  -FTU"N(LUK,L8NF»1)  )  /  {PT')°N  ( LIN<,«.)  -PTUPNCL 
1  INK,?)) 

D^TKsPST 

Ic     IPSTM.r-j.n.  )     <-.o    TO    150 

PTT  =  FST-pTt|ow(>,  ,->).psr-(1.nO-PTUBN(N,<.))»PST 

0->riFFr->'U','l('J,L»N"»?)-OTU»N(N,L4Nf'»l)-DST 

jc     (PPDT,'F,'-,T.  1.)     'SOIFFsO, 

i?o   r,i    tc    (i»o,iqo),   hn"- 


10 


r 

l  n" 

n 

1  lr 

c 

1  >P 

r 

1  ,n 

r 

1  ,r 

c 

1  •  1 

r 

"•  0 

C 

1  7r. 

r 

l«-C 

r 

1  q  n 

c 

?  o  r 

r 

'in 

r 

•>->n 

C 

»T 

r; 

->i,  n 

r 

"  1 

r 

■>£  n 

c 

»7C 

r. 

->!>0 

r 

->on 

c 

^nr 

c 

■>i  n 

t 

'"l 

r 

*  'n 

c 

'«.o 

r 

f-  n 

r 

'i-  n 

r 

*?n 

r 

■»so 

r 

ton 

c 

unn 

r 

>■  in 

c 

t.?n 

r 

uT 

r 

1.1.  n 

c 

NCB 

t 

<*(■  n 

r 

i«  7  0 

c, 

1.80 

r. 

UQ0 

c 

snn 

c 

«!in 
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1  of]     PTPK  <r,t AN*!  *«»TJPM(N,  U)  ♦FJniFF/PSTH 

GO    Tr    ?in 

I"!     'TPKr»itL«Nr)sPTi|PN(N,?)-ropTrF/P5TM 

"11    nr'TlNiir 


?■>«)  f->0«.eT  (/////1H»,  <'HCu»(iLATI\/r  TUPMIUr  F"0<U<»TL  I  TIES,  *7X,  1-}HL»NF 
1  'FCT.  COR  TURN,  //•>«.*,  N?Tl,r»(  ^»T%t»,  'H-T),'»,  'hST?,SX, 
■■  ^LTl,--x,  *MLT»,1eX,  <MPTl,5)r,  <MOT?,j»,  'uSTl.jX,  'h3T?,«;» 
'►•LT  1,5*,        'MLT-»,///) 

?»•<    ropJT     (11*,        »HLT4<(|t1t''<ir'(«'*|Lfrft.?)f1c«.tc<T*.';X)1 

S'.nS  CUTIS?     IN  I  VOL 

'■"Hf-C*;     /LINKS/     L4Nr«<(«H,')  ,LL»N(*»,M 

C^C*    /-o'HT/    LIN:»=»%<.»,^')iir«-,L»<,~»f=««'.,»l,*OlilirfHH) 

'"'•'^o    /',?)«./   ru<?"(«<.)  ,ceNnovc«i,  ,fi 

OPCf,    /Tfif/    PLTT^r  (8«.,S) 

ri-»rn     /<H>IT7/    ^.J  ?(•«),»  0'ITPT  ,  X  c  Tjax  ,  I  C|»n  ,  (r,c>i  (  r  <,  | 
^-!H"C«    /TU»N/     Kt"-C(s<t»,,  ,Lpcr  (».,f )  ,£>TU<»»'(»*.'->  ,rT°NM-,?> 
r--f>CN     /VL"»F/     WOL  l^a.  I  ,VOLUH((«.,,  «) 
rr>"K>    /T"/     I  T  I •"" 

Co^^rn    /««?1»?/    TVTL  "II »«.,?»  .TvnMCHM'li*"-^!'!  ,  tCCSIct?)  ,DrCM 
!N(?J  ,'»?C*I'".  I?  I  iFl<M(?)  t'nS!p.m  ,ePT*nCr(«.  ) 
,c»l    IL»S 

ll    ??P    L«IST*»T,|r jo 
->c*r     (c.,?feOt     »OL(Ll,B»TenC»ILI 
"'IT?     (S,?M>     I, VOL  (LI  ,PfTCi|r,<(L  i 

N">Lll«fl1L»'<r(L  )  v. 

ILT«1 

P1«FTU»NILt  *» 
C.     ??«    L*N«1tNrLLL 
I*     <TTI««C, F-J.1l    CLTff  (L,L»Ht«0. 

Ir     (FLTI»crL,L«N)  .'0.  l«,"«,1     FL  T  If?  «L  i  I  »*>  «  eL  0»T  <  IT  I«r  ♦  *! 
Ir     <NOLLL.NF.t)    GO    TO    110 
VOIUML,  1  I*  VOL  (I) /'6  00. 
GC    TC    ?-.o 

Ic     (LLAN(Ltl)  .HF.CM44<LI>    r-0    TC    150 
I"     (II  AN(L.MOLLL)  .  ««".ClJ»r(Ln     CO    TO    1<.0 

r,"   tc   ii'o,ito,?to> ,   l«" 

VILML,1»*01»VnL(LI/*MP. 

r-    TC    »mi 

KUUMl  , ')«(1.-»1  t»VOL(L>/1«>00. 

r,l    TC    ?-.o 

Ic     (L*N.<-O.NOLLL>     "0    TC    ?10 

Ir     (nrHNrcLI  .«•«.?)     CO    TC    100 

CO     TC     <t '0,1*111  i    L»«l  ~ 

CO  TC  (1f  0,  If-  0t1701  ,  NfLLL 

IP  (L«M.r0.t>  CO  Tl  »*0 

VlLU"(L,LAN)iVOL(LI/*<SnO. 

r,o  tc  ?ho 

CO    TC    ("l,l«n,H1l,    L»N 
I*      ICUR9 »LI .ri.LL»1(L. Tl)     CO    TO     ?00 
CO    TC     (?'0, 190, '101  ,     L»N 
VOLL^(L,L»NI*VCL (L) /T600. 

GO    TC    7-.0 

CI     TC     ("0,  '1  1,??1>  ,     L»N 


100 

in 
1'1 

I'O 
1*.0 


lr0 
161 


170 
1M 


r 

*->Q 

r 

r  'C 

C 

r.  i,  n 

f. 

■"•S  P 

r 

re  p 

C 

-7fl 

c 

■sffl 

r 

SOfJ 

c 

fsftO 

C 

t.  in 

c 

*s"l 

r 

*-'0 

c 

^n 

r 

fr  n 

1^0 
?01 


IP 
'P 

TO 

-P 
f  n 
n 
7  n 
a0 

°n 

1  no 
1  1  n 
1  '<■ 
1  ""' 
1  <.o 
t '  n 

1  -  n 
1  70 
1  ."0 

i=>n 
»nn 

'in 
?•>») 
"r 
'<.n 

"0 

•>f  n 

»7P 
»«P 

?^0 

'1  0 

<>n 

t'n 
^*" 

T«"0 

Hit 
U(l 

T«0 

T<»fl 

<>no 
%io 

i»?0 
k30 

«.».P 


199 


TABLE      B-2 


cont. 


?10 

«H 

n 

'•5(1 

VII 

r,o 

■mo 

VTL 

-><.n 

TC 

->c  r) 

rin 

O'T 

?M 

FIB 

?70 

CJP 

1 

C*S 

U*IL,L»N)  sPl'VOL  <L)/*M0. 

TC    ?*0 

tc  ?i»n 

UML,l.A»n»0, 

(VCL,,a,(L,lAM  ,?1,0.I     *LTI"F(L,L»N)»10.»»«. 

TINU6- 

0«?N 


►  *T     (SX,Fe,0, ?<•.?) 

►  »T     MOX,        <."lT  *<,  14, «  X,     10"     VOl'IT 


"S.T.I' 


t?H0r5rrNT    TP'J 


n 

w-r. 

n 

<»*  n 

n 

«.70 

n 

•.up 

i; 

A  J" 

ri 

cnc 

n 

61  r 

0 

r  -?o 

n 

"" 

n 

c.uP 

0 

r  c  n 

1 

c  «  n 

fso 


^'jpecuTlN*-   nrrisr 

COHCCrn    /TN/    ITT-C 

'"IKf-CN     /o'L»T/     llq*tPfaIO  ,H0LIN*iL»N'"»r  (»     ,  T)  ,"H  SNF  (<!<.) 

"1M»-CN    /»t/    T'?r,'>I«''»T,Ie»x,I''!»f,ie,J$TrP«^a,^i,lL^TrflB(»<,»),v,"L( 

i  i"?nni  ,p')<n(  i»  i"» ,»  :  *f l  ii«  oni ,  tr. at  ti^iflt  ,*.*Tr4-Mt~oi)  ,lP»«r,»9(ir(t0) 
n-t-rr^    /-$*/    *i<<f>o> 
T'lTrm ,«it*,i«fs,'*"TP«lx,M  .a-ic.'*as«'<mi 

w'ITF     <*,,t«-8>     ITI««,  I»f»,t'IF»T 

n   uc  i»i,«olt»-«c 

m'ITF     «S,1bt)     T,lI  IC«»iT  I 

Tc     ILJNCt«ltl  .  crl.1>      '.0    Tr     '70 

"I    1*0    Jsl,H0tll 

w'ITf     <«>ft?0>      J, 14^49(1,  J)  ,If"TCf(t,JI  ,TLSTC»»I  f,  Jt 

Ic      (l»NC4P» I,  I) .«T. 0»     '.C    TC      t"0 

unr »l»nC4o«t, j) 
CO    110    <»l,NOC 

iriimiT-<(!r»B(iv] ,  »*,  t, 
tT?»iPtT»*(ir»p(TW»itt.t«i> 

miTF    (S,t«0>     <(,P0;««(IV),»rL«IVI  .trC^L  (IV)  ,I!l,TT' 
WOTTF    (S.l^O)     TV,N«T--4P(TV)  ,rei»rc»p<iv> 
IV«MrTC»fMW» 
100    COMTINUF. 

no  continue 

1»0    C1NTTNUP 

|ti)  ciminuf. 
11.0  c:ntiw«- 

P'TIPN 

150    F1PHT     l/////J*f*(lM*l  ,       AM    TI*F    =     ,  I*.,  ?*,is  (  !*•!  ,  '0",       SHI9FC=,Ili 

1,10)1,       SxlNFXTa.U* 
1f0     FTPI-4T     f///*X,        »H'_t"»*:,I*.,        (H    CAOS',1?) 
170    fCRfM     (//HX,       »ML»NC,I»,       f,H    C«"*,T*,10X,     inu-T°<n    C4t 

1       9HI.AST    C4P»,IV> 
^*Q    P1PP4T     (»9X,       »«V*<.,I1,H,       5HPCSN*,F€.l,10X,       "•  HVEl=,  Ffr.  »,  10X, 

l*.»ACC«,Fe.'»,lOx,       >HlTl^s,I*,10X,      7h* CTTr°=  ,  T  ' ) 
190    F0PP4T     M6X,       6MIN1T  X*,I-»,  10X,       cHKFXT    C4C>=  ,  I  x,  1  "X  ,     IOhouf,/.    c»R  =  , 

II*) 

ENP 


:,  r ».  nx, 


1  7  r 
1  <■  r 
1  rT 


r 

?«(5 

r 

*0P 

F 

*,10 

F 

*»r 

c 

on 

F 

Thf 

c 

«.i«ti 

F 

ttr 

c 

*7T 

F 

j«-C 

F 

XQp 

r 

i,  n  n 

F 

Air 
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•  RK'UT".r     I»lPLt*l 
-'"►fN    /  6  1/     'of>',II'-»T,T»'»«,T>I»f,I«,e"?*rP(1'.,T),TL-;Tr4i?(H<.,l),VfL{ 

il_nni,tT^N(icnn),a--rL(1inn),Kas(i501i,M'Tc«r,'lrin),iP9c^ao(l^i5fi) 

["»»«  '""0/     IHOL17  (  1*10)  ,UcTONf 

^"►CK  /"'EL5T/     LTN:4  >  (hi,)  ,nol  T"<  ,L&W.tt-  <*l,  X)  ,  NOLMEIBU) 

'l>-^f  /  Tij->  M/     KOcr(  ?^  I&)  )L5fr  (  H  ,6)  ,PTU4*-f<fc|t  1  ,Pr°  (»U,?) 

"*~»0*  /Tiff/      rLTIir  <*[,,  7, 

'••'►f^    'Trt/    M'»:'r,L1'T':CC(l-;),NCT'r(ic)  ,  T«lTT="*,<NTP»r  (1?) 
-iw,,f>,     /*w.|T-»/     NCa  >  (Hi,  )  ,KCLTPT,  I'TPT,!"'-,  «"-,r>i,  e  „  ) 
C  "!  W  "  I"  N     /T«1/     ITTHf 

CK*.    'vluc/    '/OL(^i,vniuu(»»,n 

"-fTf.    /i.T'l<5/    LVlTNMi.,*-)  .LLftM**,!! 

/.  "»MfrN   /t.fim/    cu'">(  lu)  .p^nO"*  (f  i,  ,t) 
c^m-n   /^Aonrrv/  t<r»p 
C'^cs   /"»°4i'/   "ijt»iy(^),rycLr 

^l-f-rx    /PIP A*?/    TV"  tMN  IK.  t  ?»  .TV*  LSI  i  I  tn.t  ?»  ,a~f*,l  (7»  ,»CC*Tl",C  I  ,0fC^ 
in«?»  ,rcr«;i'; (?»  ,fl,"4I'»  tctS!r-(?l  »FOT?'irii  (*.i 

"."•■►CN      /H51C/     -U$i<(>0) 

C"*L    LlVi 

•>ct{     K09"AL  ,Nrr,c*P 

i,,IT>(r<fH,N)»!SM«,T*(iy,»i.«ir«.-»';'ci) 

"*     HO    I«I"T*«»T,!«-S0 

M  J»»«WU IHF( I  I 

I «.  t  •  1 

T'      (LL»«»(I,Nl4Kf)  .  JF.CUPf  (  I)  )      I  lT«-> 

[9T.1 

Ic     lUltlTitl  ,Kr.C  l"(TI  >     I»T»? 

f?LT»fl0»»UTI'«FI 

I*      (FlTt«(I,<l.',f.fn»''Y,;Lrl     r:»    TC      Mfl 
111    <«•«(.  a*c*P(I  ,K>  »1 

!c     (!FF1.L€.0.*K"».L*5TC«"-.ro.t)     re    T^     "0 

If     («*.<-1.l)     CC    TO    111 

!'.*UST'*«?(It«) 

ir   (FCSNdti  .LT.-nn.i   ir  t«   ,»9 

111    nuTTKUr 

Ic     (l»STO»»r.F1,.0l     -.0    TO    1?0 
IvPfx»lM0Lr (L4ST0NT) 
H?TCN*"*L«ST0Nf-l 

r.o   Tr   no 

171     INO»»«INf»T 

TNF XTd'.FXT*! 

T'>F»..Tl}CM-t 
1*0    C1NTIHU? 

nPfriPdNOfXJiTL"?";  »•(!,«) 

I'    (L«NC*P(I,<)  .ro.HI    TWCaPdNCFn'O 

N»TC*P(TNOrx)  »n 

L'KPFX«TPR<-CflP  (INI^X) 

Tc    (lP»rr»R(lNOFx»  .N'.fli   >,YTC»»(itN0«'»;>  "iN^rx 

IL«TC»P II,<l«INncx 

Ir«ISI7f-I9.'r>'-l*ST-)NF 

I««)r«p»tn(TS,If«X) 

Ic     (L*NC«R(I.'C)  .CO.O)     T'PSTCd.KMlNOf  x 

L9NC«p(T,<t=La^rap(it<i«i 

LlNf *P(T>*LTNrflP(I) ♦  ! 

K^TK (T) m*OcN(I ) ♦! 

QSrFfiKF ( T) 

IVITYF=1 

Ic     ((:K.Lr.00TPUC«'(  I)  I     TVlTYPi? 

IT»PVP«N0»^»L(TVEL1N«I,IVLTTe»,TVFLSir.  (I,rvLTV°>1 

IcLjspp.i/)L(FLMMIVL'''yP),FL,fIf,  (IVLTYP)) 


in 
•>n 
*o 

■.  n 
f  n 
7  t 


1  11 
1  1  ? 
1  'fl 

1  7n 
1  -." 
V  c 

1  F-0 

1  70 
1  f>,0 


no 

7„P 


».?  n 
■»«r 

?a  r 

»tn 

ui  r 
on 

.  »n 
1,1.1 

Itf.  0 

ttE  n 

-7C 

(,«n 
i»<»0 

'•no 
5 1 0 

5?0 
r  ».ri 
Ml 
cr  0 
S60 
570 
«;«o 

■5  9  0 
600 
MO 
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"IXC  AC::  NORMAL  </SCCMMfIVLTYP>,ACCSIC<IVlTVP>> 
nnF«C*N0R1AL(0PCM'J(IVLTVP)  ,DECSIG (IVLT YPJ J 

lnrrTY=r 

GN=RANF< o> 

Ic     (IRT.FQ.  i)     r,o    Tl    150 
ic    mlt.po.h    r.on    i<»o 
Gi    to   no 
140    GO    TC     (?(10,  ?00,??0>  ,     < 

i-:o  co^tinuf 

Ic     <ILT.«-Q.  1>     GO    Tl     160 

GO   t  r   i  f  n 

160    Tc  (NLANF.LT.?)    go    to    180 

Ic  C.FT.l)     GO    TO    '00 

GO  TC    ??n 

170     Ic  (KLANF.LT.1)     GO    TO     180 

ir   <k.f<j.h   go  to  -»on 

GO    TC    220 
1«1    CO    190    L*l,6 

JTURN»L 

Ic     <PN.LC.PTUPN<I,LI )     GO    TO    ?4  0 
190    COMING 

GT     TC    ?d0 
?«0    PN  =  PH»PTiJPH<I,  ^> 

on   ?in  L»l, 1 

JTUR*«L 

Ir     «RN.Lr.°TUPN«I,Ln     GO    TP    ?i»(1 
?'0    CCMINUT 

GG    TC    ?40 
?20     RN«PK»(1.-P'TURN(I,T>  I  ♦FTURMf I,  ?> 

oo   ??n  l»<.,6 

JTURH»L 

Ic     (RN.LC.PTURN(I,L  t  )     CC    TO    ?40 
?J0    CONTINUE 
?40    IP     (I.FT.L<TSCF(1)  )     GO    TO    ?50 

CALt    JBITH    (ICAOfl'IOFO  ,'6,1,01 

GC    TC    ?80 
?c0     Ic     (LKT9CF(?»  ,F0.N»FC<T,JTI*9n)  )     GO    TO    ?60 

CALL    JPITH    fICAP(I ncx),«6,l,0) 

GO   TC   ?in 
?60    IP     (IHTTPC.FO.NOTRIdl  )    GO    TO    ?70 

NOTRC(l)=NOTRC (1)»1 

CALL    JBITH    (KA9(H0FXt  ,F6,1,0) 

GO    TC    ?80 
?70    NOTRC(1)«0 

CALL  JBITH  (ICAR(HOFX)  ,f6,  1,1) 
?80  CONTINUF 

CALL  JBITH  (ICAR(INOFX) , ?6 , 7 , ITARVF) 

CALL  JBITH  (ICA9UN0FX)  ,i 0 , 4 ,HA XOAC) 

CALL  JBITH  (ICAP(HOFX)  ,46 ,4 , I DDEAC ) 

CALL  JBITH  (ICAR(I^OFX)  ,40,6,IFL> 

CALL    JBITH    (ICARUNOEX)  ,11,13, ITIrF) 

CALL    JBITH    (ICAPCHOFX)  ,54  ,  ?,I  VL  TYP) 

CALL    JBITH     (ICAP(ISDFX)  ,  36 , 4, 1 ACCTY) 

CALL    JBITH    (ICARIINOPX)  ,  *3  ,  T , JTURN) 

I'     <K*.PQ.l)    GC    TO    ?90 

JcL"IBITM(ICA9(LINTEX),i,n,6) 

IP     (POSNfLINDFX)-FLOAT(JFL) -70..GT.0.)     GO    TO    ?90 

POSMTNDEX)  =POSML INDEX)  -FLOAT  (JFL)-'O. 

GO    TC    310 
?90    P0SMIN0rx>x-(FLTI1F(IfK)-FL0AT(TTIHPt)»FL0AT<IT/>RVF> 
■»00    CONTINUF. 


r 

6?0 

F 

b*0 

F 

*40 

F 

B.K0 

c 

f-f  0 

F 

6  7  0 

f 

680 

r 

FQO 

r 

710 

F 

710 

F 

7?0 

F 

770 

r 

7C0 

F 

7C  0 

F 

71  0 

F 

770 

F 

Tap 

r 

7Qp 

r 

«,  "fl 

F 

8  1  r 

c 

«"P 

F 

8  70 

f 

»•■  0 

F 

gi  n 

F 

860 

r 

"7C 

r 

°  n,  p 

F 

«9C 

F 

i  on 

F 

910 

r 

Q'O 

f 

"IC 

F 

940 

F 

a;-n 

F 

4n 

F 

970 

F 

^80 

r 

990 

F 

inno 

F 

1010 

F 

1  O'O 

F 

1  0T0 

F 

1  040 

F 

inso 

F 

1  060 

F 

1070 

F 

1  080 

F 

10Q0 

F 

11  00 

F 

1110 

F 

11?0 

P 

1  130 

F 

1140 

F 

1150 

F 

1160 

F 

1170 

F 

1180 

F 

1190 

F 

1?00 

F 

1?10 

F 

1??0 

202 


TABLE     B     2, 


cont 


MO 


I  Uxtm  (aq<;  (P1<;n(  i  nfK)  i  i 

C^LL    J"TTM     (ireo(iincv),ii,,qtj«;T) 

Ir     (KK.FO.l)     G  C     TO     110 

n-LSirCSH(LINOc«)-°n^N(TKDr)')-fLCaT(JfL) 
Tc  (nFLS.GT  .100.)  ",  0  TC  110 
Ic  (VFL (LINOFX)  .GT.^LOAT (ITARVF)  >  GO  TC  '11 
V"rL(lNDc'X)  =  FLQ«T(ITAPVl:')-(lon.-nrLr)/im.*(rLj 
1*)  ) 
GO  TC  1?0 

V'L(TMncX)  =  <H0aT<T~A°VE> 
CTNTINU* 

Ic  (VOL'JM  (I  ,K)   .P").  1  ,  )  GC  TO  1*1 
FLTIfP(I,KI=FLTI1rCI,<l»KP'".FxP{tfOLU1(I,<')l 

ic   jFLTi^d ,*i  .Lr.fi n   r,a  to  ioo 

C1NTINUF 

r  VT  IK'UF 

B  r  T  U  P  N 

WRIT"-     (6.T-0) 

P""TURN 

FOPCAT     (/10X,     H.MTXRLE    OVF»rlOV) 
■"NO 


AT  (IT«ctfP)  -VcL(LTNrir 


1  ■»■»() 
1  *fc(l 


1  vo 

1  "Tfl 

1  '1  1 
i  7^n 

1   "0 

1  'u  0 
i  -»K,  (] 
1?'  P 

1  t?P 

1  Tn0 

l,nr 

1-10 

lfc'n 

l  l  i.  n 

i  »■  t  n 


VJfFCUTINF    UPOaT^ 

rnfrcH    ft\/    IP  fm,  n  F  *t  ,  IM  X,  IS  I"»r,ir»STC  •>(«<.,  »»,TlS  Trat.  <e«,t)  ,  vfl< 
llSn0),POSN(l?00),»";Cc'L(l,0n),irAe{i<i00),''|YTraD("00),I:"rCt-(1-0'1) 
TOM^CN    /T1/    ITI1C 

<-1H*0'    'o«l»/     »0,  Cl»f  cit  tfi.cf  (-T.rTCLC 
CCMKCN    /LINK?/     LANTN(8i.,F  )  ,LL»MI>i,1) 

^^^«^CN   /«u</  nnoloh<.,  n 

C1MP0N    /KWNTV    «'CA>  <■<<.)  ,  NOtlTPT  ,  T  ST  A»T  ,  jc  •r',  «■  G<*-|  <  »,  I 

COMfC>'    /PV/    P|4li,ll  ,V(IU,1> 

COMHON  /GFOH/  ru^(H<.l,n«Nn»T|J»,6l 

COH^CN    /"FLAT/     LIN:»P(*i.)  ,MOLlf><fLBNr«P(»'   ,  1)  ,  MLlNt  CR<*  ) 

rrMf-CN    /r»3/    IBCCiTWFL.lTUPw,rLi  IACCL 

COHPCN    /".TARTS/    T?,*GO 

COHfCN  /MSK/  MA?K("0) 

INTFKFR  ArTTYP 

»CAL  LLAN 


liSTCPPFH 

?»stcpping 
3»jtcppf0  pop  turn 
*.»stcpping  fop  turn 
5»st0pping  fop  lanr  cmangf 
6'stcfpfo  fop  lanf  change 

i^itm(ix,m,n)  =  t«;hft»(Ix,«)  .and.mask(n) 

00  100  I=l,NOLIN< 
NLAK'NOLANF (I) 
00  100  J=1,NLAN 
NHOLDd,  J)  =  0 
100  CONTINUE 

TMOKsRFACT 


7«C9rc    "icmavIOR 

*«CAR    FOLI OMlNG 

9*IN    Ort»»FO    1.FPT    TURN 
lOslN    NORMAL     TURN 
1l*SlO*TNG    FOR    TURN 
l''r$TOPPTN'".    FQP    RET*    "IGNAL 


1  '0 
1  u" 

I  ■   0 

II  0 
1  7fl 

1  f  n 

1 10 

"00 
'10 
"0 
?10 
?i.O 
?c0 
?F  0 
?70 
."PO 

?qo 
100 
110 

1?0 

mo 
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r.  (-mangf   la**s 

r 

C 


<"1LI    CMAHGF 


C 


upoatc  vp^ic^s 
no   i,in  lt»**«i,  noih< 

Tc     »LTNC»H(LlNK)  .P1.0)     rC    TO    i,  J  0 

NOlL*NOL'Hf (LINK) 

PO     <«  30    L»K*'«1,N0LL 

ie     (lAN'"»P(LlN*,LAin  .FO.O)     GO    TC    HO 

C»LL    SIGNAL     (ISTG,LlNK,L*NF,ITI"f > 

I  »  fJ  M>  «  L  »  N  C»  9  (  L  I N  K 1 1  »  N  F  ) 

N'JH»IFO^TC3(LlN'<fHNr) 

no   rr,o»o 

iarci»lA--c 

i«rr«T«»tTi<T.f  »e<Ntji»  ,  ifc.o 

TVFL*FLO»T(I^ITK(i:»P(NU»')  , 2*,7>  > 

TTURN»niT-i<lc»»(Nim  ,*i,d 

Ic     (LIN<.GT.NOUTPT>     GO    TC    I'll 

Ic     (HU"."F.TFP.STGP<llNK,lANF))     GC    TO    129 

4-CFL  (N'J"M»FPEFi(»<TVFl-VFl  (NUM)  ) 

S-CTVPrn? 

r.j    to    1»0 

1?0    CONTINUE 

AOrPPaACCFL (NUfl 

I~HKGH»0 

Ir     (KCC.F1.13)    GO    TO    310 

Ic     (ISCC.NF  .*  .AN0.IA0C.NF.6.OP  .L ANF . F0 . L ANT N ( L IN* , I  TURN )  )     r.n    TO    11 

in 
i<:hkgh«i 

T<«I5IG 

Ic     (IS.GT.2)    IS«2 

GO    TC    di.0,110),    I> 

no  go  tc   (n.o,  i60,iro,  t»fl,ipo,?on,?io,?»o,"o,?'.n,'c  o,?(o,?7o, lbo),   i 

1STG 
11.0  C4LI  PF04PP  (LlN<,L*NF,Nl«1,ACCTYP> 

GO  TC  Tin 

1*0  Call  AMPFR  (IGO,LH<,LANF,NI)^,ACCTYP) 

If  (IGO.FQ.1)  GO  Tl  11,0 

160  GO  TC  (280, 260, 100, 100, ?en, 290)  ,  ITUPN 

170  IF  (TTU9N.NC.1.ANO.  ITU9N.N«"  .i. )  GC  TO  1».  0 

GO  TC  100 

180  Ic  (ITU°N.NF.6)  GO  TO  1UP 

GO  TC  290 

190  Ic  (ITURN.NP.l)  GO  TO  H.  0 

GO  TO  ?80 

200  IF  (ITU9N.NF.S)  GO  TO  1 d P 

GO  TC  290 

210  Ie  (ITUPN. NF. 2)  Go  TO  14  0 

GO  TC  280 

?20  IF  (ITU9N.NF.1.ANO.IT!JRN.N<".<..ANC.TTUPN.Nr.&)  Go  TQ  1*0 

It  (ITU9N.ro. 6)  GO  TO  290 

GO  TO  100 

210  Ic  (ITU9H.NF.  1.ANO.  ITUPN.NF.I..ANC.ITHPN.NF.1)  GO  TO  1*»  0 

IF  (ITUPN. c0.1)  GO  TO  280 

GO  TO  300 


G 

150 

G 

If  0 

G 

17  0 

G 

1«0 

G 

TOO 

G 

MO 

G 

t,->0 

G 

1,10 

G 

«-n 

G 

I.F0 

G 

<.6P 

G 

470 

G 

t«n 

r. 

i.°0 

r. 

F.  op 

r. 

510 

G 

•;  2  0 

G 

t^C 

G 

ti,n 

r. 

*r  0 

G 

<><-0 

G 

•370 

G 

s«n 

G 

ri  o  0 

G 

60P 

G 

f>1  P 

G 

*2n 

G 

fc'C 

G 

"■O 

G 

6 '0 

r. 

*.f-p 

r3 

f)7f 

G 

h*  n 

G 

f  90 

G 

700 

G 

710 

G 

7?0 

G 

7*0 

G 

7<.n 

G 

?'  0 

G 

760 

G 

770 

G 

7A0 

G 

790 

r. 

800 

r. 

810 

G 

820 

G 

a*p 

r. 

pi,p 

G 

*ro 

G 

8t-0 

G 

8?n 

G 

880 

G 

890 

G 

900 

G 

910 

G 

920 

G 

9J0 

G 

91.0 

G 

950 
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?h<\ 

ie 

IF 

GO 

7  51 

If 

Ie 

GO 

?fcO 

Ic 

CI 

?TQ 

IF 

?*o 

CO 

TABLE     B  -?,       cont 


<ITU9N.N«-.T.4Nn.  ITlJRN.NT  .*  .  ANC  .ITU»N .Nf. s )     r.r)    TO     lt.0 
(ITURN.F0.5)     GO    Tfl     ?90 

tc  inn 

(ITURN.NF.  l.ANO.  I  TURN  .NF  .1.  .  ANC  .  ITURN  .  NF  .  ?)  GO  Tn  n,  n 

(ITURN. FO.?)  GO  TO  ?80 

TC  Tin 

(ITURN. IF. 4)  r,0  TO  1U0 

TC  ?30 

(ITURN.CE.l)  r.O  TC1  1J.P 

ONTINUF 

CUl  PIGHT  (IINK,LWIF,NU*,ACCTYP) 

r.O  TO  310 
?90  CONTINUE 

CALL  LFFT  tLIN» ,L«iF,NU«, ITIMC,»CCTYP) 

GO  TC  110 
100  CONTINUE 

Ic  (KUH.NE. IFR*TCR(lTNK,lAMF)  )  GO  TO  110 

Ie  (POSN(NIIM)  .LT.CJ*«»LtKI  -100.  »  CO  TC  'H 

CIL  CONST  (LINK,  UNf.NUf,  ICON,  0) 

IE  (ICON.EO.l)  GO  TO  3?0 
310  CUL  GFN»MR  (L IN< ,L ANF ,NIM , ACCTYOl 

GO  TO  110 
3?0  Te  (VFl <NUM> .LT.O.)  VFL(M)H)«0. 

Ic  <F0SN(N1I")  .GE.C  IR'MLlK'O  >  GO  TC  HO 

XIX»CUP9«LINK)  -POSKNUMI 

IF  (XIX.FO.O.I  XIX».5 

ACTFL  (N'JN)«-(VFL(N'.H)»VFl  (M)»>  1/XIX 

A'CTYP*? 
310  CONTINUF 

IF  (ICMNGM.NF.l)  Gl  TO  3«.0 

IF  (ACCELWU*)  .LT.»CCP»)  GO  TO  UO 

ACCEL (NUM)*ACCPR 

AOCTVP»IACC 
3«.0  CONTINUE 

Ic  (KU*.E0.IFR«K9(LINK,LANF)  .ANC.IACC.c0.1.^NO.ecCTvP.NF, 
1*.35 

P(LIMC,LANC)»POSN(NU«) 

ValKr.LANEl'VFLlflH) 

IF     <*GO.EO.0>     GO    Tl    150 

VEL (HUM) iACCFL  (NUH) • (CYCLF-T2) 

IF     (VEL(NUI) .LT.O.)     VEL(NU">«0. 

TTHCYCLF-T? 

P0SN<NUM)*P0SN«NU«>  ♦ .5* ACCFL (NUN) »TT3»TT5 

*GO«0 

GO    TC    «»00 
350     V?«VFL(NUM)  »ACCPR»RE»CT 

VELdiUfOrvz+ACCFLeWO'crYCLF-RFACT) 

IF     (VFL (NUM) .GE.O.I     GO    TO    180 

Ie    <V?.GF.o.»    GO    TO    160 

T»-V(LINK, LANE  I/AC? PR 

APSTiABSU)' 

POSMNUM) rfOSN(NU^) ♦ V ( L INK , L ANF ) »T  + . 5 • ACCPR'ABST • A  AST 

GO    TC    370 
160    T»-V?/ACCEL (NUH) 

APfTsABStT) 

P0SN<NlM)=POSN(NUM)*V?»T».r»ftCCPR»At)<;T,APST 
170    ACCEL(NIJM)  =  0. 

VFL  CMJMJ  =0. 

A'IfTYPrI 

IF      (IfHNGH.FO. j)     s^CTYPaf 

GO     TO    i.00 


G 

960 

c 

970 

f, 

180 

r. 

9O0 

G 

1  nno 

r. 

mm 

r. 

1  0?0 

G 

1  (tin 

G 

1 0<.C 

G 

mc  n 

r. 

1O6O 

G 

1070 

r. 

1080 

r, 

l"°0 

G 

1100 

G 

1110 

G 

1  1  '0 

G 

11  '0 

G 

11.0 

r 

lift 

r. 

11  bO 

r. 

1170 

r. 

11MC 

r. 

1  110 

r. 

1  '00 

G 

1?1  n 

r. 

1  ??c 

G 

1  M0 

r. 

t?(,0 

r. 

l?O0 

r, 

1  "f.p 

r. 

l»70 

G 

mm 

r. 

1  ?<5n 

r. 

linn 

G 

1  'in 

r. 

1  i?n 

G 

1  -«*o 

r. 

llfcO 

G 

11'  0 

G 

iTf  11 

G 

1*70 

G 

1  180 

G 

1*90 

G 

i<*on 

r. 

1 1»  1 0 

G 

1<.?0 

G 

1410 

G 

1<4<«0 

r. 

1«.50 

G 

11.60 

G 

14,70 

G 

1 1.8C 

G 

i«.qo 

G 

1500 

G 

1510 

G 

1S?0 

G 

1510 

G 

151.0 

G 

1550 

G 

1560 
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1     PO*;N  (NU"t)=P  (LINK,  UNHtVIL  IN*-,  LflSF)'RFa'"T».^»a'~rnij»RrarT»RFAnT*V?' 
ll"YriF-'?rACT)*.5»»:<>L(NU1>»<CYCLE-S'"ACT>,'<CYCLr-arACT> 
Ic     (P0SN(NUHI  .LT.P(LINK,L»NP)  )     POSN  (  NUM)  =P(L  INK,  LANE  ) 
Ic     (KUM.ro.  if  BSTC'JLINK.LANFt  )     r, c    TO    3°0 


N=  IPRFCA"  (MUM) 

IF  (FCSM(NMH)  ,r,T.»)SN(N)  )  POSN  (NL|U)  =°05  N  (N) -?0  , 
»QH  CONTINUE 

Ic  (V*L (NUI).LT.O.)  VFL(KUM)=o. 
una    CONTINUE 

ic  (ArcTvp.Fo.  n>  r,i  to  mo 

CALL  J«TT«1  (IC»»(NI1)  ,Tf,,(,,ACCTYF) 
'■10  CONTINUE 

Ic  (ArCTYP.FO.O)  A-;CTYP  =  IACC 

«tfT«T"OK 

CUL  POOK  (LlM<f,LA>(r,NUM,ITIMF) 

1=  (►.UH.rQ.iLSTCAP(LlNK,lANr)  )  nc  TO  k?0 

M'JM«NXTCAH(NUM> 

1=  <KU«.N*.0)  r,o  TO  11  n 
<«?0  CONTINU' 

CALL  OUcUF  (LlM(,HNF) 
HO  CONTINUE 

CUl  CUTPT  (ITI«r) 

P=  TURN 

FNP 


1670 
1580 
1S90 
1600 
1610 
l'j'O 
16  ^0 
16<«0 
16c  0 
16  6  0 
If  7C 
16*0 
16Q0 
1  700 
1710 
1  7'fl 
17»0 
17i«  (1 
1  """0 
l7r-0 
t?7fl 

i7»n 

17QC 

i«nn 
i*in 


SUPRfUTINE  SIGNAL  ( TrIG ,L INK ,L ANT , IT I*r ) 

COM>CN    /3TO/    LCYCLr  C»4)  ,  NO<>MAS  ( »<.  ,  3  >  ,  NFha~f  ( H  u,  ^  ,  ,)  ,  l'H  A  «:f  (  *<, ,  X ,  i 
1 .LOFFST (4l», ^> 
INTFCFF     OFFPT 


c 

c 

i' 

PFP 

6»     GAHL 

n»  r,As*r.arH 

c 

?= 

gbtn 

7>    GAOP 

i?«   gal*gaol 

c 

i* 

Ci« 

8=     GAS*CAL 

13»    GA»*GAO= 

c 

1.2 

r.AL 

9*     r,AS*GAP 

!«,»    At-BE0 

c 
r 

5  = 

GAR 

11"    GAS»GAOL 

IF  (ITINF.LT.LCFFST (LINK.LANF) )  GC  TO  100 

NC YC= (IT IHE-LOFFSTt LINK, LANE > )/LCYCLc< LINK) 

OFFPT  =  NCYC»LCYCLFCLINK)HOFFST(LlNK,LANF) 

GO  TO  110 
100  NCYC=0 

0<rFPT«-LfYCLE«LINK)  *LOFF?T (L INK , LANE) 
110    CONTINUE 

NOPP*NO°H AS (LINK, LANE) 

00  l?n  I=l,NOPP 

ITeCFFPT*LPHASF(LTSK,L»NF,I) 

IH0LP*I 

Ic  (ITI«F.LF.IT)  GO  TO  130 

OeFPT»IT 
l'O  CONTINUE 
110  CONTINUE 

ISIG=NPHASF (LINK,L4NF,IhOL0) 

RETURN 

END 


1  n 
?o 

'0 

ut 

-  0 

i  n 

70 

°n 
on 

1  "0 
1  10 
1  '0 

iTn 
1«.p 

160 
If  0 
170 
180 
190 
?00 

'in 

7'0 
230 
?h0 
»50 
760 
?70 
780 
790 
300 
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•  T»Of  .<t«J,  .6*5,  .78. 


3'JPPCUTINF     ««tlFP     (TGn,LlKK|L«NF,NU»",»CrTrr>) 

COMf-ON    /ai/    IPFM,riFXT,If"AX,TSI7E»IPI*STrP<8<.,  H)  ,  TLSTrAP<8it,  J)  ,VFL( 

!i';i)n),PosN(itn(i),a';cfL(icnn),irft(:(isno),NKTra''(i'nn),iDi?Fcai?(i?.on) 

COMMON  /GFOM/  CU?R  (<»*.)  .OPNPOY  (81*,%) 

n*K>  /hs'/  has<(->0) 

CIHfON  /ras/  iacC.TVFL.TTUPN.FL,  IACOL 
rtf-FNSICN  PPSTO°(  11) 
P^AL  N0PM4L 
I^TFCP  BCCTYP 

c^t*   <oi?*top<i)  ,isi,io)  /.one, .  n?,»,,Dc;«.,  .in, . 

1.18/ 

ic    (iac^.N^.  ? .  awo.  tarc.Nf .  1  ">)    r-o  to   up 
Ir    («CCrL  (NUH)  .r.c.i.  >    go   TO    ion 

XcTKaL=-VirL<NUn»V(:i<kH.'1)/<?.»£CCFL(NU>"))*o0S>ir|M-<) 

ic  <XFINaL.L<r.rijP,'(lIN>())  on  TO  1«0 
I  CTMTINU^ 

Ic  (T«OC.N«-.i)  0,0  TO  11(1 

Ie  (POSN  (N'lM)  .GT.C  J?°  (LIM<)  )  GO  TO  1^(1 

01  TC  1U0 
)  CONTINUE  l 

IF  (MJM.CQ.  IFP'STOPtLlNif.LaNf  )  )  GO  TO  1  ?  0 

Nj  IPFFOaP (NUM) 

IF     faCCTvp.L^.b.O0.  arcTYF.ro.  i  ?)     r,o    TO     1J.I1 
I    CONTINUE. 

KPINAl*CUSfMLIMO 

V  =  VFL(N1JM)  ♦aGCFL(NIJ«)»PFaOT 

Ic     <V?.LT.O.)     W?=0, 

P'  =  FCSN(NUM)»VFl<N,JM)»PFflCT».5»a0rFL(Nl'*>»l?Fai~T»PFaCT 

YtrXFlNat-P' 

Ic  (XX. I""  .0  .)   00  TO  Ml 

aocs-(v?»v?)/ ( ?.•*<) 

CN=PANF ( 0 ) 
<arC=4BS (ACCI /3. 

ic  ueacc.LT.i)  go  to  ij.0 

Ic  (KACC.GT.10)  GO  TO  1TP 

IF  (PN.GT.PPSTOD(<«CO)  )  00  TO  1  J,  1 

CONTINUE 

10  0  =  1 

IGO  =  1  MEANS  Gl 

RETURN 
CONTINUE 
IG0  =  (1 

IGO  =  0  HFANS  STOP 
RETURN 

END 


10 
'0 
tfi 
'.(1 

c0 

?C 

°o 

90 
t  00 
1  1  0 

i  ?n 
i  to 

1  J»0 
150 

isn 

1  70 
180 

1  QO 
-IP 
'1  P 

-LP 

?s  n 
?«  p 

'70 

?sn 
?«o 

TOP 
'10 

*?o 

•?  '0 
■»j»o 
Tc0 

T6  0 

-<70 

T«0 
too 
J.P0 
"»10 
it?0 

kia 

<.J»Q 
b50 

i>60 

WO 
(.SO 
J.90 
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COMMON    /MSK/    N1SKC0I 
OTMFNSION    TL4G<'1> 
PEAL    LL4N 

DATA    fTLAG(I) »I«l,»l>/f».,0.,0.,0.,.09,.18,.M,.i»9,.66,.81,.90,.96, 
1. 9 85 t . 995 ,.999,. 99*, 1,0 f 1.0,1 . 0, 1.0, 1. 0/ 
I'lTMIX.H,  N)  *ISHPTR(IX,M  .AM0.H4SMNI 

DC     600    LINK=l,NOLtNK 
NLNsN0L4NE(LINK> 
DO    600    LANE=1,NLN 

1^  (LAN^ARCLINK, LANE) .£0.0)  GO  TC  600 
INnFX=IFoSTCP(LlNK,L«NE> 
100  CONTINUE 

Ic     (L4NC4R(LINK,L4MF)  .LF.O)     GO    TC    610 
ITUFN=I9ITN(IC49<IN0FX),31,1> 
LSN=LANTN JLINK.ITU^N) 
1^     <L4N.(".T.1)     L4N  =  1 
Ic     (L*N.LT.  II     LANM 
Ie     (L4NE-L4N)     l?0,UO,11O 
110    CONTINUE 

go   tc  5*o 

120     L9NNFN«L4«P»1 

GC    TC    ldO 
1'0     LANI*FW»L»NC-1 
11.0    CONTINUE 

ENn=rU09(LINK) -LLAN(LINK,LANNFW) 

El  =  FLCAT<MITH(ICA'CINOFXI,<.0,M> 

FN0L4N»TN0»CL 

1^     (FCSNUNOFX)  .LT.ENDlAM     GO    TO    *•*  0 

IF  (L4NCAR(LINK,lA <SFM) .hc.ki  &o  TO  150 

N=0 

GO  TO  i.i.0 
150  CONTINUE 

X=PCSN(TNDEX)  -fu 

IN040J«IF9STCR(LIN<,LANNFM) 
160    Zc     (FOSN(INT40J).GT.X)     GO    TO    170 

N*INDAD i 

N-INOEX  OF  fj^sT  C4F  BFHlNO  FfONT  CF  CH4NGr  ZONF 

GO  TC  Wl.0 
170  CONTINUE 

If  (NXTC4R(IN040J) .EO.ftt  GO  TO  180 

IN0A0J*NXTC4P(IN0A0J> 

GO  TC  160 
180  CONTINUE 

N*0 

GO  TC  1,1,0 

XsPCSN(INOFX) -25. 

ic  (P0SN<IN040J).GE.X)  GO  TO  190 

OY*VEL(IN040J) -VFU(INOEX) 

Ic  (OV.LF.O.)  GO  TO  1,10 

OT=  (X-PO<!N<IN0  40J)  )  /OV 

Ic  (CT.GT.10.)  GO  TO  i»10 

LAG«DT»?.*l. 

TL=S4NF(0) 

IF  (TL.LF.TLAG  (LAGI  )  GO  TO  1,10 
190  CONTINUE 

X=CURP(LINK) -100. 

Ic  CFOSNCINOFXJ.GT.X)  GO  TO  ?00 

GO  TC  590 
200  CONTINUE 

KACCxIBITM(ICAP(INlEX),16,l») 

IACC=KACC 


J 

1  00 

J 

110 

J 

1?0 

J 

no 

J 

11,0 

J 

15  0 

J 

160 

J 

170 

J 

IPO 

J 

190 

J 

->oo 

J 

■MO 

J 

•>?o 

J 

?10 

J 

21,0 

J 

?r.0 

J 

?f-  0 

J 

.'7  0 

J 

?«P 

J 

■•qo 

J 

inn 

J 

'in 

J 

*?n 

J 

110 

J 

11.0 

J 

'50 

J 

16  0 

J 

170 

J 

IPO 

J 

iqo 

J 

1.00 

J 

1.10 

J 

fc'O 

J 

1,10 

J 

1.1.  0 

J 

1.50 

J 

1.60 

J 

1.70 

J 

1.80 

J 

1,90 

J 

50C 

J 

510 

J 

520 

J 

510 

J 

5-.0 

J 

*50 

J 

efcO 

J 

570 

J 

580 

J 

590 

J 

600 

J 

610 

J 

620 

J 

6^0 

J 

6  1.0 

J 

650 

J 

660 

J 

670 

J 

680 

J 

690 

J 

700 
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if    (*Acr.NT.6>    r,o  to   2*o 

«CCFl (INDFX)=0 . 
GO  TC  (?10, '20,210) ,  LANF 
210  LA0J=2 

GO  TC  ?*n 
720  L«0J«1 

GO  TC  230 
230  IF  <IAN"-.LT.LACJ>  ',0  TO  '7  0 

INOAOJ* I FRSTCR (LINK, LAO J) 
?J«0  IF  (INOAOJ. EO.O)  GO  TO  270 

IF  (PPSN  (INOFX  )  .LT.POSNI INOAOJ)  -FLOAT  ( I9IT-1  (  TC  A"  (INOAOJ)  ,<fO,<j))-10 
1  .)  f-C  TO  35  0 

GO  TO  260 
250  CONTINUE 

INDAOJ=NXTCAP(INDAOJ> 

GO  TC  2I»0 
260  IF  (IPIT«(ICAR  (INmOj)  ,36,1.)  .NF.t)  GO  TO  270 

Ic  (KACC.NE.13)  CALL  JPITN  (ICAR  (INDEX)  »3*,<t  ,13) 
C  IACC  =  l1  IS  TO  evPASS  THE  NORMAL  FFFroT  OF  A 

C  RED  SIGNAL  IN  ADJUSTMENT  FOP  LANC  -Jhangf 

GO  TO  590 
270  Ic  (KACC.NF.6)  CALL  J9ITM  (IC*P  ( iNOf  XI  ,  3*  ,<.,f>) 

GO  TO  590 
2*0  CONTINUE 

Ic  (KACC.F0.5)  GO  to  290 

ACCFL (INDEX)*- FLOAT  (  I8ITM  ICAR  ( INOFX)  ,  1.6 »".))* 2  .0 
29  0  P*«FCSN(INOEX) -VEL ( TNOEX) • VEL ( INCEX ) / ( 2 . ««CCH ( InOFX) ) 

CC  TO  (100,  310,320)  ,  LANF 
300  L»OJ«2 

GO  TC  310 
310  LA0J«1 

GO    TO    330 
'20    LA0J*2 
330     IN0»0J»IFRSTCR(LIN<,LAOJ> 

IF     (INOAOJ. FO.O)    GO    TO    «.00 
31.0    CONTINUE 

IF     (PF.GT.POSN(INO*OJ)»FL*10.)     GO    TO    350 

IF     (PF.LT.POSNUNOADJ) -1.0.)     GO    TO    360 

ELACJ»FLO»T(IBIT1(TCAR(IKOAOJ)  ,1.0,6)  ) 

IF     (PF.LT.POSN(TNOAOJ)-FLAOJ-IO.I    GO    TO    3fcQ 

TF     (IBITM(ICAR(lNO»OJ>  ,36  , «.)  .NF.6)    GO    TO    1.00 

X«PC«N( INOAOJ) -ELAOJ-IO.-POSN(INCEX) 

IF    (X.Lc.0.l    GO    TO    370 

ACCFl (INDEX )»-V*L( TNOEX >»VFL(lNOEX)/ (2. »X) 

PF«FCSN(INOAOJ)-ELAOJ-10. 
350    IF     (LANE.LT.LACJ)    00    TO    MO 

IF     (ACCEL(INDAOJ)  .r,t.O.)    GO    TO    360 

PFACJ«POSN(INOAOJ)-VCL(INOAOJ)»VEL(INOAOJ)/(2.»ACCFL(INOAOJ) ) 

I«     (PF-FL-10..GT.PFAOJ)    GO    TO    <* 0  0 

PFl  ZMPFAOJ-10.-FLO  AT  (IflTTH(  ICAR  (INOAOJ),  1.0,6)) 

IF     (PF.LT.PFLZN)    GO    TO    360 

IF     (POSN(INOEX)  .Gf.PFL.7N)     GO    TO    <»00 

ACCEL (INDEX )=- VEL ( INDEX  I »VFL( INDEX)/ (2 . • (PFL 7N-OOSN ( INOFX) )  ) 
360  CONTINUE 

INDIDJ*NXTCAR( INOAOJ) 

IF  (INDAOJ.NE.O)  GO  TO  3<t0 
370  IF  (INnAOJ.FQ. IFRSTCRILINK.LAOJ) )  GO  TO  390 

LTNOAOJ«IPRECAR( INOAOJ) 

IF  (POSN(LIN0ACJ>-°OSN(TN0AOJ>  .LT.EL+10.+25.)  GO  TO  1.00 
380  IF  (KACC.NE.7)  CALL  JBITr  ( ICAP  <  INDEX)  ,36,l»  ,7  ) 

CO  TO  690 


J 

710 

J 

720 

J 

730 

J 

71.0 

J 

7c:  fl 

J 

'60 

J 

77fl 

J 

7B0 

J 

7^0 

J 

BOO 

J 

Alt! 

J 

820 

J 

830 

J 

61.0 

J 

850 

J 

86  0 

J 

870 

J 

980 

J 

soo 

J 

oon 

J 

910 

J 

9?0 

J 

930 

J 

91.0 

J 

950 

J 

96  0 

J 

970 

J 

980 

J 

990 

J 

toon 

J 

1010 

J 

1070 

J 

1030 

J 

101.0 

J 

lOf  0 

J 

106  0 

J 

1070 

J 

1080 

J 

10  90 

J 

1100 

J 

1110 

J 

1  120 

J 

1130 

J 

11%0 

J 

1150 

J 

1160 

J 

1170 

J 

1180 

J 

1190 

J 

1200 

J 

1210 

J 

1220 

J 

1230 

J 

121,0 

J 

1250 

J 

1260 

J 

1270 

J 

1280 

J 

1790 

J 

1300 

J 

1310 
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190  xc    (cur"? (link) -PosNJiNoanj)  .r,r.pL»in.)  r,o  to  3«n 

400  CONTINUE 

KACC=5 

IF  (IACC.NF.tfArr)  ^ALL  JPITM  ( IC  AP  (INOFX)  ,  3*  ,4 ,  K«OC) 

00  TO  590 

THANGr  LANFS 
410  IP  (h.EO.I*"RSTC(LlNK,LANNFW)  >  GC  TO  44  0 

Ir  <LANCAR(LINK,(.ANNFW)  .ri.  0)  00  TO  440 

NL=IFPECAR(INOAOJ) 

Ie  <*.FQ.O>  NL=IISTCAR(LTNK,LANNFW> 

I^  (»CCEL(NL) .LT.O.J  GO  TO  i»?0 

T  =  f"YCLF  +  RFACT 

P*L=FOSN(NL>»VFL(NL),T».c»ACCEL(NL)»T»T 

P?N  =  F0SN(INnFX)*VPL(IN0Fy)»RFACT».?»ACCFL(INOry)»PFACT»I?FA':T  +  (VFL( 
lINDFX)+Ar;CFL(IN0t'X»»Rc»CT)»CrCLF*.^«<-7.)*rTl~L'r*rYCLF 

GO  TO  430 
1,2  0  P'l*FOSN (NL> -VFL  <NL>  »VFL (NL>  /<?.*ACCFL  (NL)  ) 

o?N»P05N(INnFX)»VFU (INDEX) »VFL (IKDEX) 
1.  30  CONTINUE 

IF      (F?N.GT.P?L-CLO'»T(IBITM(irAP(M)  ,40,6))  I     GO    Tn     190 
1.1.O     nL*IPPFrAO  (INCFX) 

IOF«NXTCAR(INOEX) 

L^N^AR(LTN•<,LANNFWI  «L  ANT  AP  (L  INK,  L  ANNFM  )  ♦  1 

L»NCAR(LIN*,LANF)  ■■.  4NCAR  (LINK  ,  L  ANP)  -1 

1»1«LANCAR(LINK,LANNEH> 

LA«LA1 

IF  (N.NE.O)  GO  TO  +60 

IL«ILSTCAR«LINK,LANNENI 

1*    (IL.FO.O)  GO  TO  450 

NXTCAP(lL)»INOFX 
1,50    IPPFCA9(IN0EX)«TL 

NXTCAR(INOEX)«0 

lLSTCAP(LINK,LANNE>0 «INOEX 

IF     <L#NCAR(LlNK,LANNEM> .FO.l)     IFRSTCP ( L I*K, L ANNC U) = INDEX 

N»LA1 

GO  TC  MO 
1.60  CONTINUE 

IL«IPRECAR(N) 

IF»K 

IF  (IL.EO.O)  GO  TO  WO 

NXTC*»<IL)»INDEX 
WO  NXTC»P(INOEX)«IF 

IPRFC«R(IHOEX)»IL 

IP(»€C»R(IF»»INOEX 

IF  (IPRECAR(INOEX) .EO.O)  IFRSTCP  (LINK, L ANNFN) «TNOFX 
1.8O  CONTINUE 

IF  <IFRSTCR(LINK,L»NF) .Ert. INDEX)  IFRSTCP (LINK, LANE) *TOF 

IF  IIFPSTCP(LINK,L*NF) .fO.IOF)  IPPECAR ( IOF) »0 

IF     «ILSTCAR(LINK,L»NF» ,FO. INDEX)     ILSTCAR UINK.L ANF ) alOL 

IF     <ILSTCAR(Llfc*,LANF) .FO.IOD     NXTCAP  ( IOL)  »  0 

IF     <IflITM(irAR(INOFX) ,36,4) .FQ.6)    GO    TO    1.90 

CALL    JBITM    (ICAP(lNOFX)  ,36,1,, 8) 

GO  TO  500 
1.90  CALL  JBITM  ( IC AR ( INOFX)  ,  36 ,4, 1 3) 
500  CONTINUE 

I*  (IOL.PQ.O)  GO  TO  510 

NXTCAR(IOL)*IOF 
510  I*  (IOF.FO.0)  GO  TO  5?0 

T°RFCAP(IOF)*IOL 
5?0  CONTINUE 
530  IF  (U.EO.O)  GO  TO  51.0 


J 

t3?0 

J 

1  330 

J 

1  31,0 

J 

1  3K0 

J 

1  Tf.fl 

J 

1  370 

J 

1  TAf) 

J 

1  39fJ 

.1 

1400 

J 

1>»10 

J 

two 

J 

two 

J 

11.40 

J 

1<,50 

J 

i4to 

J 

two 

J 

two 

J 

H.90 

J 

1500 

J 

1510 

J 

15?0 

J 

1e*0 

J 

1540 

J 

15*0 

J 

1560 

J 

1570 

J 

1*80 

J 

1590 

J 

1600 

J 

1610 

J 

16'0 

J 

1630 

J 

1640 

J 

1660' 

J 

1660 

J 

1670 

J 

1680 

J 

1690 

) 

1700 

J 

1710 

J 

17?0 

J 

1730 

J 

1740 

J 

1750 

J 

1760 

J 

1770 

J 

1780 

J 

1790 

J 

1800 

J 

1810 

J 

t8?0 

J 

1830 

J 

1840 

J 

1850 

J 

1860 

J 

1870 

J 

1880 

J 

1890 

J 

1900 

J 

1910 

J 

19?0 
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IF«KXTCAR(IL>  j    iq^0 

IP     (IF.EO.OI     GO    TO    S<tO  j    tq.,0 

PX«PCSN(IL»-FLCAT(mTMICAR(IL>,<»0, 6)1-5.  j    1950 

IF     (PX-POSN(IF).LE.O.)     POSN(IF)«PX  j    i^g 

IL*KXTCAR(IL>  j    ^70 

GO    TC    530  j    iq80 

51.0    INDEX*IOF  j    19,0 

IF     (IOF.NE.0)     GO    TO    100  j    ?000 

GO    TO   600  j    2010 

550    CONTINUE  j    ?0?0 

OT«EM)LAN-PnSN  (INDEX)  j    ?030 

IF     (OT.LT.100.)    GO    TO    560  j    ?o<,o 

CALL    JBITN    (ICAR(IM0FX),36,i»,13)  j    2050 

GO    TO    590  j    ?060 

560    CONTINUE  j    2070 

IACC«IB:TN(ICAR(IN0EX)  ,36,1.)  j  ?0«0 
IP     (CURB(LIWX)  -POSN(INOEX)  .GT.300..ANO.LLAN(LINK,LANNFW>  .FT.LLANtL       J    ?n<J0 

1INK,LANE>)    GO    TO    590  j    ?t00 

LA«LANCAR(LINK,LANNEW)  j    ? , , „ 

IF     (LA.EO.O)    GO   TO    570  j    ?1?ft 

ILST»ILSTCAR(LINK,LANNEH)  j    ^ng 

OT»POSN(ILST)-POSN(INOEX)  j    ?11>0 

IF     (0T.GE.180.)    GO    TO    570  1    ?1cn 

Ie     (0T.UF.8.)     OT«l.  j    ?1eo 

IF     ((VEL(lLST)»VEL(lLST)-VFL(lN0EX)»VFL(IN0FXn/(2.»0T).GF.-12.)     G       J    ?170 

10    TC    570  j    ?180 

ACCEL (INOEX)«(VEL(ILST)-VEL(INOEX>)/OT»AO  j    ?igo 

IF    (IACC.E0.5.0R.IACC.E0.6)    GO    TO   580  j    ??oo 

CALL    JBITN    (ICAR(IN0FX),36,I.,5)  J    ??m 

GO    TO  590  j    ???0 

570    CALL   JBITN    (IC  AR(INOEX)  ,  36,<»,  13)  j    ??30 

GO    TO   590  j    2?k0 

580    IF     (I«CC.EQ.6.ANO.ACCEL(INOEX).GT.O.)    CALL    JBIT1    ( ICAR ( INOFX ) , 36,1.      J    ??50 

1»*>  J    ??60 

590    CONTINUE  j    ??70 

INOEX«NXTCAR(INOEX)  j    7?80 

IF     (INOEX.CT.O)    CO    TO    100  J    ??90 

600    CONTINUE  j    ?^00 

610    CONTINUE  j    ?jio 

RETURN  j    ?52ft 

c  J    ?330 

EN0  J    231.0 


SUBROUTINE    GENBHR    (LINK, LANE, NUN  ,IFLAG) 

COMMON    /Al/    IREH,lNEXT,IMX,ISI7E,IFRSTCR(Bi.,3>,Il$TCAR(8<.,3>,VEL( 
115  0  0), POSN (1500), ACCtL(1590> , ICAR (15 00) ,NXTCAR(15 00) .IPRECAR ( 1500) 
COMMON    /PARAM/    AO, FREER, RE ACT, CYCLE 

COMMON    /ffELJT/    LINCAP(8I,),N0LINX,LANCAR(8I.,3),N0LANE(8'.) 
CTMMCN    /PV/    P(8l»,3)  ,V(8l»,3) 
COMMON    /GEOM/    CUR8(8l.>  ,0BN0RY(fli»,6) 

COUPON    /TURN/     NREC(8i,,6)  ,LREC(8i»,6>,PTURN(8<.,6),PTR(8<,,?) 
COMMON    /CAP/    I»CTYO,TVFL,ITURN,FL,JACTYP 
COMMON    /KNNTZ/    NCA3  (81, 1  ,  KOUTPT  ,  ISTART,  IFND,  KGFN  (  Hi*  ) 
COMMON    /STARTS/    T2.MGO 
COMMON    /MSK/    MASK('O) 
RFfiL    NORMAL 

I0ITM(IX,M,N)=ISHFTR<IX,M1 .ANO.MASr(N) 
LNUMiIPRFCAR(NUM) 
WAxrAC*IBITM(irAR(NUM),50,i.) 


X 

10 

X 

20 

X 

30 

X 

to 

K 

50 

K 

60 

X 

70 

X 

80 

X 

90 

< 

100 

X 

110 

X 

120 

K 

130 

X 

11.0 

K 

150 

X 

160 

TABLE     B     2,      cont 


to   i"o 


1 )     GO    TO    l"n 


lACT*P=  [FLAG 
I c  l  a  r. :  o 
-on=o 

A0C1  =ACCFL  (NUM  ) 

[e     <MIM,FO.IFP.STr,3(LTNK,LANFl  ) 

0TSTiP(LTNK',LANfr)-'>0SN(MLM) 
IP     (CT<;T.Lr.  0.  )    01^=  .001 
Tc     CTST.GT.'OO.)     ",0    TC     1Q0 
Ic     (JACTYP.FQ, 1.4Nl.L»CTYO.Nr 
G  0    T  C    1 1  n 
1n0     Ir      (LACTvp.FO. 0)     GO     TO     Hfl 

ir    <acccl  (lnum)  ,n.  o. )    go  to   no 

i?    (ierTvp.NF.  i  .ano  .  TacTYP.Nr.i  )    r.r    to    lin 

T'  =  CYrLr-VrL(LWlul  '4rCPL(LNU'D  +1  . 

Ir     (T?.Gr.CYCLF)     Gl     TO    110 

V,  =  \MLINK,,LAf."_>«ACOFL  (LNUM) 

p-»  =  P(  LINK, L  ANT  )*.5»»CCPL  (INU-I) 

Af,FFCL=A0*(V2-VFL(N'l*'>)/(F?-POc»J(M"-n) 

"GO  =  l 

GO     TC     I'D 
110     C0NTTNUr 

A0FFfL=  (V(LTNK,L\N-)  -VFL  (Nil*)  )  »A0/r  I""T 

Tr     (»CCf  OL.Lc .  0.)     ".0    TO     Ufl 
1?0     rOfT!NUr 

ArCFSFsFPFFKMTVEL-VELfNUH)  ) 

Tc    («CCBPc.LF.AOr;FOi)    r-c   To    »on 

A-rci  »N')M|s»f cfol 

Ir     (JCCP^L.LF.  O..A'*O.VFl.  fNU1»  .IF.H.I     r,0    To    m 
jr     (ArrFC>L.rlT  #rLoST  (MitOAC)  )     A.CCFL  (N'l«)  rFLOAT  (H*OAn.J 
1"     Ic     (IACTyP.f*. »>     oc-tu^m 

lcL»r.=8 

GO    TC    2Ttl 
11.0    COf'TIMUF 

Ic     (JACTYP.GT.ft.A-O.  1ACTYP.LT.  1  ?)    GO    Tr     i">0 

IF     (IACTYP.FO.  1)     GO     TO    1*0 

Ic      (L«CTYP.GT .ft. AMI. L1TTYP.LT. 1?)     GO    Tf      1 ?fl 

ie    («ccrL  (lnu»i)  .co.  o. )    r,r  to   i«-o 

Tr     (VFL(LN<II1)  .LT.H.  I     VPLfLMIM)  =0. 

SlFr-(VFL (LNU1) »VFL  CLNUP ))/ C? , •ACCEL U MJf ) )  »P0V1  ( LNU") 

GO  TO  ISO 
1F0  SlF«VFL(LNU^)»CYrL^»PnSN(L^Mf) 
160  fl*FLCAT(I9ITM(TC4' (LNIJH) ,fcO,b) ) 

S'FiSIF-Fl 

V?*VFL(NlJM)»Arri*RF8CT 

Ic  (V??.LF.O.)  V?'*.101 

S,?*FCSN(NUM)*vfL(NU'«),PFai"T».F»ecCFL(t>tJM)»P|:'A'-T,=|F4CT 

YT*??F-S?? 

Ic  (XI.LF.O.)  XI=1. 

ACCFL (NUM)r-(v2?»V'2)/(?.»XTl 

Tr  (ATCFL  (N'.JM)  .LT  .-FLOAT  ( IP  TT«1  ( I C  AP  (  NUC" )  ,46,1.1  )>  ',0  TO  170 

$7?j$??»rYrLF»V?? 

XTi«?F-<;?2 

IF  (XT.LT.O.)   GO  T)  170 

ic  rxi.rn.o.)  xi=i 
Aor*-(V?*v??)  /  c.»xi) 

lc     (ACC.LT. -10.)     r,1     TO     170 
A'CFL  (N'JM)  =  0. 
IF     (IACTYP.FO. 
IrLAC-«f 
GO    TC    ?'0 
170     Ic     (IACTYP.F3, 


1  70 
1  A  0 


?F,  0 

?7C 


■*  no 

•»i  c 

"0 


(.00 

1.  1  o 


1)     P^TUPN 


?)     P-TIJPN 


r  f  0 
57(1 
c,  no 
f.Qfl 

f,  oo 

ft  1  0 

s?n 
fi^O 

ft1-  0 
6E  0 
F,7fl 

ft  SO 
ftOO 
700 
7  1  0 
7?0 
770 
71.0 
7r0 
760 
770 
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ICLAC=2 
GO    TC    ?*o 

Ic   (IACTYP.NE.il  TCLAG=1 
ACCFL  (NUM)  =  0. 

r,n  tc  'xo 

CONTINUE 
ArCFKF=CPEFK»(TvrL-VcL(M!") ) 

ttnrEL(NUMi=FLO«T(Mixnar) 

Ic     (»rCF°F.LF. «CCrL (NU1)  )     AfCFl  (KU«) =ACCFPr 

Ic     (TACTyP.nF.7)     ICLAG=7 

re     (MJM.rQ.IFRSTCRfLINK))     GO    TO     2*0 

Ic     (LTN*.Lc.NOLtTPT>     GO    TC     230 

POSKFX=ACCFL(NUM)»':YCL|r»'~YCLr/?.«VFL(Nliw)'OYrLlrK!'lSN(NU>1) 

1^     (FCSNFX.LE  .  r«NO?Y(LIM<,ITURN>  )     GO    TO     ?xo 

IT=NPFC(LtM*,ITURN> 

J J=LFEC(LINK, ITURN) 

Ic     (II.LF.O)     GO    TO    2'0 

*<=ILSTCA»( II, jj) 

Ir     (KK.PQ.O)     GO    TO    '*a 

1=     (FCSIOCK) ♦0<1ND9Y (LIKKiITUPN) -FOSN (NU«) .GT .'00. )     GO    TO    2X0 

Ir     (II. GT. LINK)     GO    TO     2'0 

X I=rPND9Y (LINK, ITU? N) -PCSN(NUM) *F (II, JJ) 

Ic     (XI.Lc.0.)     Xl*l. 

ACCFCL»«0*(V(IT.,J.II  -VEL (NUH) )  /xl 

Ic     (ACCEL  (NIJH)  .LF.tCCFOU    GO    TO    2X0 

AGCEL(NiJM)»ACCFOL 

GC    TC    HO 

XT=CPNn9Y<LINK,IUnN> -PCCN(NUH)»FC?N(KK) 

Ic     (XI.LF.O.)     xl=i. 

ATFCL  =  AOMVFL(*<>-VFL(NUM))/XI 

GO    TO    210 

CONTINUE 

RETURN 

FNO 


5UBRCUTINF    REDAPP     (L  IN* ,LANF ,NUH , ACCTYP) 

COMMON    /Al/    IREM,INFXT,I)-AX,ISI7F,IFRSTC(8<.,3>  ,  TLSTCAR  (8i»,  3)  ,  VEL  ( 
ll«5O0l  ,POSN«1500lf  ACCEL  C1S00)  ,ICAR<  15  00)  tNXTCARCiMO)  ,IPRFCAR  ( 1S0  0) 
COMMON    /PARAM/    AO,PRrPK,PEACT,rYCLF 
COMMON    /GEOM/    CUR8(8«.)  ,DPNnRY(ft(.,6) 
COMfCN    /PV/    PHi.,1)  ,V<8(.,  3> 

common  /tm/   itime 

common  /cap/  iacc,tvel,iturn,el,iaccl 

common  /msk/  mask('o) 

intfger  acctyp 

r^al  normal 

iritm(Ix,m,n)»i«;hftr(Ix,^)  .  ano.nask(n) 

lnum*iprecar(num) 

NsLNUM 

IcLAG«0 

LACC«ACCTYP 

ACCTYP=0 

ACC1=ACCFL(NUM) 

IF  (POSN(NUM)  .GE.C'JRP(LINK)-i.O0.)  GO  TO  1<.0 
100  CALL  GFNRHR  ( L I NK , L A NE , NLM , L A CC > 

A'CTYP=LACG 

GO  TC  1.8  0 
110  GO  TC  (  1  ">0, 120, 100,  10(1,  130,  130)  ,  ITURN 


K 

760 

K 

7<50 

" 

aoo 

K 

8  1  0 

k 

8^0 

K 

8  '0 

K 

8i-n 

v 

ft^n 

K 

»e.o 

K 

870 

X 

880 

K 

89  0 

K 

900 

* 

910 

v 

920 

K 

9^0 

* 

O<.0 

K 

9ro 

K 

if-  n 

K 

a?n 

K 

O80 

K 

OTfl 

K 

1000 

* 

1010 

K 

1  O'O 

«• 

1  0*0 

K 

104(1 

K 

iorn 

K 

inf,o 

* 

1  07H 

K 

1080 

K 

1  "90 

K 

1100 

K 

1110 

K. 

1  1  20 

L 

1  0 

L 

?0 

L 

'0 

L 

1.0 

L 

50 

L 

60 

L 

70 

L 

80 

L 

90 

L 

100 

L 

110 

L 

1  20 

L 

1  '0 

L 

140 

L 

150 

L 

1  60 

L 

170 

L 

180 

L 

190 

L 

?00 

L 

?10 

L 

220 

L 

230 
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cont 


190 


??0 

?•»!) 


FALL     RIGHT     <LINK,HNF,NU»',L AFC) 

i~X  TYP  =  L  ACC 

PCTUPN 

CALL     LFCT     ( L I N* , L ANF , NU* , IT  I  ME , I AFC ) 

A-CTYPrLAfT 

orTU"N 

CONTINUE 

Ic     (MJH.NF.IFPSTCCLINKtLANPJ  )     Gf    TO    ?M 

Ic      (IACG  .  NF  .  1  )     GO    TO     1^(1 

r»CUSfi(LTNK>-lti. 

Ic      (POSN(NU^)  .LT.X)     GO    TF     1 c  (] 

A'CFL  (N'JM>  =  0. 

VCL  (MJH)  :0. 

Ir      (IACC.FO.l)      <5FTJRN 

aictyp=i 

DCTUPN 

CONTINU17 

A:rCrS  =  PLOAT(IOTTH(TrAP(K'JM)  ,50,1.)) 

ATFt(NUM|sF»PF<»(rVFL-VFLINt)M»  ) 

CONTINUE 

Ic     (ACCTl (NUHI  .LF.jrp)     Gr    TO    i7o 

ArCFL  <MJH)= ACC 

<"0NTIMUc 

Ir     (IAC.E0.7)     GO    TO    110 

rriTPi' 

rCNTIM)c 

OCTUPN 

CONTINUE 

Tr     (IiCC.NF.l?)     GO    TO    ?0n 

lc     «VFL  «NU«  )  .GT  .0.  >     GO    TO     ??n 

«rL  (KUM) =0. 

Ic     (iaCC.CO.l)     PFTI9N 

4GCTTP»1 

»CTURN 

CCNTINUC 

Ir     (FCSN«I*JM)  .r-T.C  JRB<LU<)  ♦  *.)     r,p    TO    in 

Ic     (CUR<MIINK)  -POS'KNUM)  .LT.W.)    GO    To    ?if) 

CALL    GFNPHP     (LlNKtLftNEfNUP.ACCTYP) 

PFTUPN 

CONTINUE 

V  =  VrL(NUM) ♦ACCt'P'AGT 

Sr=CURB(LINK) -1. 

S'=FCSN(NLW) ♦V<rL(NJM)»PFJCT*.5'ACCl*PF«CT»RF4CT 

OrL?  =  «:F-s? 

IF     (TFLS.LF.O.)     OELS=l. 

tc   (va.LF.n.)   v?=.ioi 

ATFL  (NU1)  =  -<V?*V?>  /  (?.»riFLS) 

Ic     (ACCCL(NUM)  .GT.-Ft0«T(I8TTM(ICAP(NUh),<.6,u)  ))     GO    TO    ?«.Q 

CONTINUE 

IF     (IFLAG.FQ.5)     GO    TO     ?70 

Ie     (IACCC0.1?)    RETURN 

A'CTYPii^ 

"CTLRN 

CONTINUE 

rcL?*SF-<;?-v?*CYCLF 

Ie      fFLS.L17  .0.  )     GO    TO     ??0 

A=-  («?•(/?>/  (?. 'O^L1;) 

Te      (A.LT.-10.)     GO    TO     '?0 

ACCEL  (N'J«i)  =  0. 

Tf      (IFLAG.F0.5)     r,0    TO     ?50 


I 

?fc(l 

L 

,c  D 

I 

■>*  n 

L 

»70 

L 

'Ad 

L 

"•on 

L 

-<nn 

L 

» i  n 

L 

"'-n 

L 

"<  i  n 

L 

'i.  n 

L 

•"  n 

L 

if.  n 

L 

*70 

L 

^«0 

L 

iqo 

L 

i»00 

L 

<.10 

L 

"."•n 

L 

i»ig 

L 

u  t>  n 

L 

».  •-•■  n 

L 

1»(,0 

L 

'.  -  0 

L 

UflO 

L 

i»°n 

L 

r  nr 

L 

c  1  n 

L 

^?0 

L 

-, 'fl 

L 

c.n 

L 

=;c  n 

L 

m  n 

L 

£.?n 

I 

.-.  nn 

L 

'.on 

t. 

knn 

L 

<- 1  n 

L 

6?n 

L 

«i  10 

L 

'.i.  n 

L 

6Fn 

L 

6h(l 

L 

^70 

L 

f><*n 

L 

fcQO 

L 

700 

L 

71  0 

L 

7?o 

L 

710 

L 

741) 

L 

7C0 

L 

760 

L 

770 

L 

7»0 

L 

7Q0 

L 

H  10 

L 

610 

L 

*'0 

L 

8  10 

L 

»«0 
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IP     (IACC.E0.7)     'tmN 
A~CTYP=7 
RETURN 
?50     DFLS  =  F(t.INK,LANF> -tosn(NUM) 
Ic     (PELS. U»". 0.  )     0ELS=1. 
ACC=6  0»(V(LTNK,LANr)-VFL(NUM))/OFLS 
Ic     (ACC.GE.  ACCF|.(N  JM>  >     GC    TO    ?f>0 
A?CEL (NU")=ACC 
Ic     (IACC.NF.A)      ftCCTVPxfl 
PFTURN 
?F>0     IF     (IACC.NE.7)     ACTTyp=7 

G>CTIPN 
?70     DrLSsP«LTN<,LANF)-'>OSN(NUM) 
Ir     (TELS.LF.O.)     DFLS*1. 
«Cr«An»(V(LlM<,LANC)-VFL (NUM) ) /DFLS 
IF     (ACC.CE.ACCFL(N'JM)  )     Gf    TO    ?10 
STfl  (N'J")«ACC 
Ic     (lACC.NF.g)     «rcTYP  =  i? 
orTURN 
?<n    CONTINUE 

N=IFREC«R(NIJW> 
X  =  P(LIN<,LAN£»  -POSN  (>»UM 
Ic     (X.GT.300.)     GO    TO    150 
Ie     (IACC.C,5.1?)     r,o    TO    i»ll) 
Ic     (IACC.EO.l)     GO    TO    1.10 
?°0     Ic     (FOSNfNU")  .r,T.C'l9«(LIM<)  )     GO    TO    110 
Te     (POSN(N)  .LE.CUPR(LINIO)     GO    TO    300 
ICLAG*5 
GO    TO    210 
T00     CONTINUE 

Ic     (LACC.LT.7.0P.L»fC.FQ.l?.ANO.X.lT.?00.)     GO    TO     160 
Ic     (IPITMdCAR(N)  ,n,')  .NE.ITUPN)     GO    TC    ?10 
0CLS=P(LINX,LANF)-OOSN(NUM) 
IF     (TFLS.LF.O.)     OELS*l. 

ACCEL  (N'J«1)»A0»  (V(LTNr,  LAKE)  -vfl  (MJ"»  >/rjF|_S 
IF     (ACCEL (NUH)  .LF.0. »     GO    TO    150 
310    CONTINUE 

A^C*FREc*»<TVFL-VFl (NU*I ) 
Ic     (ACCEL  (NUH)  .LT.ACC)     GC    TO    3?0 
ACCOFS  =  FLOAT(lPIT1(irAR(KUH)  ,  5  0  ,  <* >  > 
GO    TC    160 
1?0    CONTINUE 

A'-C*FLOAT(IBITM(IC4R(NUM),eo, (,)/?> 
Ie     (ACCCL(NUM)  ,LF.»CC)     GO    TO    110 
ATCFL  (NUM)  =  4CC 
ACCFL(NUM)=0. 
GO     TC     310 

Ic     (ACCCL(N) .FQ.0.1     GO    TO    170 
330    CONTINUE 

Ic     (IACC.EQ.8)     GO    TO    3 <•  0 
ACCTYP*8 
31.0    CONTINUE 

RETURN 
150    CONTINUF 

IF     (IACCL.EQ.l?.OR.IACCL.EO..?>     GO    TO    If  0 
Ic     (IACCL.NE.l)     GO    TO    310 
360    CONTINUE 

Ic     (ACCEL  (N)  .ECO. »     GO    TO    170 
SlFr-(VEL(N)»VEL(N))/(?.»ACCFL(N) )»OOSN(N) 
GO    TC    HO 
170    SlF«VfL (NI»CYCLF»PlSN(Nt 


L 

8*0 

L 

8F0 

L 

P70 

L 

880 

L 

«qp 

L 

Q10 

L 

910 

L 

q?o 

L 

910 

L 

9*0 

L 

950 

L 

9F0 

L 

970 

L 

ono 

L 

990 

L 

1000 

L 

1  01  0 

L 

1  n?o 

L 

1  o*n 

L 

1  m.n 

L 

in«-o 

L 

int-o 

L 

1070 

L 

1  nf.n 

L 

1  1"0 

L 

1110 

L 

1110 

L 

1 1  ?n 

L 

11  ^0 

L 

1 1  <*Q 

L 

1150 

L 

11  to 

L 

1170 

L 

1  1  «0 

L 

119P 

L 

pno 

L 

1  ?1  0 

L 

i??n 

L 

i?.in 

L 

1  ?i»0 

L 

1  'c0 

L 

i'hn  ■ 

L 

1?70 

L 

1»80 

L 

1?90 

L 

lino 

L 

1110 

L 

1  1?0 

L 

1  '10 

L 

1.11.0 

L 

1  150 

L 

1  160 

L 

1170 

L 

1380 

L 

1190 

L 

ii.no 

L 

11.10 

L 

ll.?0 

L 

11.10 

L 

11.1.0 

L 

11.50 

TABLE  B-2,   COM 


215 


ifO    PL  =  FLOAT  (IfllTMCICA?  (N)  ,1.0,6)) 
S2F=S1F-*L 

V'?»VEL  (NUM)  ♦ACC1»:?E4CT 
IF  (V??.LE.O.)  V27r.001 
IF  (fCCl.TO. 0.1  GO  TO  390 
S*?«POSN(NUH) »VFL(NUM) 'REACT*. 5»ACC1»RE ACT »RFACT 

GC  TC  «.oo 

T90  CONTINUE 

S'Z'POSNfNU**)  ♦VFLINUH) »RFACT 
".01  XIX»S?F-S22 

IF  (XIX.LE.O.)  XIXM. 

L(NUM)=-(V??»V»2)/(?.»XIX) 

-FLOAT  (TBITH(  f.  AR<NU*I  ,<»b,<.>  ) 

ACCEL(NUM)  ,LT.»CC)  GO  TO  (.20 

*S2F-S22-V2?»CYCLE 

OFLS.LT.O.)    GO    TO    1,20 

OELS.EO.O.)    0€LS»1. 

2?»V22/ (2.»0ELS> 

A.LT.-10.)     GO    TO    W?0 

L<NUN>*0. 

IACC.EQ.8)     RET'JRN 

YPM 


MO 


ACC 

ACC 

I* 

O^L 

IF 

I« 

A»- 

IF 

ACC 

IF 

Arc 

R«T 

COW 

TF 

ACC 

i.20    CON 
IF 
IB 
ACC 
RFT 

«.*0    ELL 
IF 
ACC 
P'? 
V? 
Pi? 
VI? 
I* 
I* 
PlF 
P?F 

IF 
«•- 

GO 
«90    PlF 
GO 


i.t.0 


«.60 


I* 

ACC 
IF 

RFTORN 


1.70 


CON 
AT 
V«L 
P 

irC 
CON 


INUE 

IACCL.NF.i?)    M    TO    290 

L<NU«D«ACC1 

INUE 

»TL«NUN»  .L'.n.l     GO    TC    HO 

IACC.EO.l?)    RETURN 

TP«1? 

RN 

FLOAT  (IBITlMI^RtN)  ,1.0,6)  ) 

PCSN(NUN)  .GT.POSN(N»-ELL-10.)    GO    TO    1.70 

FB€€«»<T»FL-VFL  <NU*>> 

POS«UNUmt.5»ACC»CTCLE»CYCLE 

¥FL(NUW)*Arr»CYCLE 

P05N(N)*VFL(N)»RFArT».5»ACCEL(N)»RFArT»RFACT 

»CL(N)»ACCFL(N) 'REACT 

P??.GE.P12-FLL»    GO    TO    1.70 

ACCFL(N)  ,LT.0.»    GO    TO   i»50 

P1?»V12»CYCLE*.5»ACCFL<N)»CYCLE»CYCLE 

P1F-FLL 

P?P.LP.P22)    GO    TO    1.70 

2?»V??/(2.»C»?F-p??)) 

C    1.60 

P1?-V1?»V12/<?.»»CCEL(N> ) 

O    1.1.0 

A.LT.-l?.)    GO    TO   *7fl 

L(NU*)=ACC 

IACC.NF.7)     ACCTYP«7 


INUE 
L(NUM)=0. 

NUN) =0. 

IACC.EO.l)     RETURN 
YP«1 
INUE 


RFTUSN 
FNO 


L 

11.60 

L 

1«.70 

L 

li.R0 

L 

i<.qn 

L 

1500 

1 

1510 

L 

1520 

L 

15^0 

I 

1*1,0 

L 

15r0 

L 

I5t,n 

L 

1570 

L 

1580 

L 

1590 

L 

1610 

L 

1610 

L 

16'0 

L 

16^0 

L 

IF.  4,0 

L 

1650 

L 

166  0 

L 

1670 

L 

1680 

L 

1690 

L 

1700 

L 

1710 

L 

1720 

L 

17^0 

L 

17..0 

L 

17f  0 

L 

1760 

L 

1770 

L 

i7«n 

L 

1  7Q0 

L 

i*on 

L 

1810 

L 

1820 

L 

is  ^n 

L 

1*1.0 

L 

1860 

L 

I860 

L 

1870 

L 

1880 

L 

1890 

L 

1900 

L 

1910 

L 

1920 

L 

19T0 

L 

191.0 

L 

1950 

L 

I960 

L 

1970 

L 

1980 

L 

1990 

L 

2000 

L 

?010 

L 

'020 

L 

20^0 

L 

201.0 

L 

2050 
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SUPPCUTINE  RIGHT  (llNK.L'NF  ,NU!«,  If  CN)  "  10 

OMKCN  /Al/  IOFM.INEXT ,  IfAX  t  ISI'F,  IPRSTC*  (*<•, *) , Tl^TfAPCU, X) , V^L (   «  ?fl 

iisoo>,PTSN<i500),A~,crL(ieoo>,ICAQ(i500),NxTCAP<r  ini.iPRfCAPiisoo)      ••  *o 

Cft'CN    /PARAP/     AO.fRfFK.CEACT.CYCLF  "  << n 

CMhfN    /GEOmft/    RATIUS  («i»»6)  »3EGINPT(**.,6)  1  r  o 

r<"rr>CK    /pv/    P  ifli.,1)  ,v  (fli.,1)  "i  E  n 

COMMON    /TUPN/     NPt"C<fli»t6)  ,LRFC  (Fi.  ,6)  .  PTURN(*4.,6  )  ,  ^T5>  (Hl,,  ?)  «  70 

rmrON    /2FLAT/     L  IN-CA^M*)  ,  rOL  I  NK  ,  L  ANTA  F  (»t,  1)  ,NOL  "IMF  ( <^  i+  1  M  BO 

COHrCN    /GEO*/    CURR(8<.)  ,DPNnRY(84  ,6)  m  ° r 

CCMMON     /CAP/     I ACC,TVFL»ITURN,FL, IACCL  M  100 

Cn*POH     /1SK/    MAS<(?0)  M  1  1  0 

fUIVALrNC,r     (VTIJPN,  A3SVT)  "I  I'O 

I°ITt- (IX,M,N» =ISHFT9(Tx,*> .ANO.MASK(N)  "  M( 

IFLAGsIEON  M  1  <•  0 

IrOK=0  M  lr  0 

nt« i  u  1  e  o 

Ic      (ITURN.FQ.?)     NT*'  *  170 

ATFCrACCFL  <NU*>  M  1  'II 

Ie     (POSN  (NUM)  .r.f.C  'J'»(IHKI  -*00.  »     GO    TC    110  -  1  °  0 

101     r,UL    r,FNO«     (LINK, LANE, NLM, IFLAG)  M  7  n  n 

IfOMIFLAG  M  '11 

9FTURN  "  ^n 

110     CONTINUE  "  ?70 

Ie      (KUM.CQ.  IFRSTCR(LINK,IANF)  )     GO    TO     1?0  M  "^l 

Ie     (IACCL.E0.1  .ANO.  IFLAG. NP. II     GC    TO     100  "  "• '  r 

Ie     (IACC.E0.1.  ANO.IACCL^F.l)     GO    TC    10"  "  ?c  0 

1?0    CONTINUE  M  ?7Q 

VTUP^S0°T(9.6t»RA0IU<:  (LINK, NT)  )  H  "H 

OECMNa-FLOAT  (IPIT1  (ICAR(NH«)  ,1.6,1.1  I  M  OCI0 

X«8PGINPT  (LINK,  NT)  -  (POSN  (NUM)  *VCL  (NU1)  »pr  a^  T  »  .  5»  A  CCE  L  <  N'l")  •  RF  A  CT  •»       M  'on 

1EACT)  "I  '1p 

Ie     (X.LE.O. )     GO    TO    150  '  ? 0 

CALL    GFN»M«»     (LINK, LANE, NUM, IF|.»G>  -  ""1 

ICQMIFLAG  M  **n 

A«5VX«VEL  (NUM)  ♦ACC»R»REACT  M  ■">  0 

IP     (ABSVX.lT.O.)     ATSVXsfl.  m  ,fn 

ACr«(A6SVT»A8SVT-ATSVX»APSVT)/ (?.»X)  M  "0 

IP     <ACC.GT.ACCFL<NJN))     GO    TO    lfcO  M  ^*0 

If     (ACC.GT.DFCMTN.ANn.ACC.LT.O.)     GO    TO    1*0  M  **n 

GO    TC    11.0  *  «on 

HO    XX«CU»B(LINO-  (POSi(NU«)  ♦VFL(NUM)«PEACT*.«.»ACCP',RC  ACT'REACT M VFL  (       "  <.  1  0 

IN'JMMACCPR'REACD'CYCLF^.S'ACCFL  (NUM)  »C  YCLF^YCl  r  >  *  "»?0 

A«SV»VEL (NUM) »ACCP?»REACT*ACrEL (NUM)'CYCLE  1  *>30 

IF     (ABSV.LT.O.)    ABSV«0.  M  '•'•n 

A«  (ABSVT»ABSVT-ABSV»ABSV)/(?.»XX>  M  "»50 

I»     (A.GT.-10.I     GO    TO    1«.0  M  '•60 

ACCEL<NUM)=ACC  M  u7° 

IEQN"11  H  4S0 

mo   CONTINUE  H  <,<,° 

IP  (KUM.FQ. IFRSTCR(LlNK,LANE))  GO  TO  16 0  M  500 

N*IPRFCAR(NUM1  M  510 

IP  (IRITMdCAR  (Nl  ,TT,1)  .NF.ITURN)  GO  TO  1*0  N  5?0 

GO  TO  190  M  530 

150  ACCEL <NUM|= (VTURN-CVFL (NUN) *ACCPR»RFACT) l/CYCLF  M  540 

I*  (IACC.NP.10)  IE1N«10  M  550 

GC  TC  220  M  56° 

160  CONTINUE  M  57° 

YiPCSN(NUM) ♦VEL(NUM)»REACT*.5»ACCPP»REACT»RFACT  M  590 

IP  <X.LT.AEGINPT(LINK,NT))  GO  TO  190  M  590 
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N»NRFC(lTNK,ITURN> 

L*LREC<LTNK,ITUPN) 

N0«tANCAP IN, LI 

Ie     <N0.cO.0>     GO    TO     190 

N0«lLSTCAR(N,L > 

I*     (N.LT.LINK)     GO    TO     170 

X«OPNOBY<LINK, ITUR^) -PCSN(NUM) ♦PCSN(NO) 

Ie     (X.LP.O.)     X  =  l. 

ACC»A0M  VfL  (NO)-V?L<NUI»J  >/X 

GO    TC    Hd 
170    CONTINUE 

X»PPNORT(LINK,ITUR»t)-PCSMNUi">*P<N,L> 

If      (X.LF.O.)     X*l. 

KCC»A0»(V(N,L)-VFL<N'1M)>/X 
180    CONTINUE 

i»    (iccpl  (num)  .lf.4CC)    r,n  TO   10(1 

Ie     (ACC.GT.OECMIN)     GO    TO    190 
JTfl  (NUN)=ACC 
IF     (IACC.Nf.fl)     IEO^*8 
GO     TC    220 
190    CONTINUE 

CALL    CONST     (LIK*tHNF,NUPfICON,l> 
Tc     (ICON.EO.0)     CO    TO    220 
X  =  CUF^(LIN*>-POSNMUM> 

if    (x.LF.n.)   go  to   'no 

Ic  (X.GT.50.)  GO  Tl  220 
le     (X.F1.0.)  X=.00t 
V2rVcL(NU«>  ♦ACCPR'RFACT 
Ie  (V2.LF.0.)  V2=0. 

acc«-(V2»v2>  /x 

GO  TC  210 
2  00  ACC«-?.»FLOAT  <  I9IT1(ICAR  <NUM)  ,t»6,<»)  > 
210  CONTINUE 

IF  <ACC.LT.ACCFL<N  JN1  )  ACCFL <NUM > * ACC 

I*  (IACC.NE.2)  IFON«2 
220  CONTINUE 

ACCPAX«FLOAT(IPITM<ICAR<NU*>  ,  5  0  ,  U  >  ) 

IF  (ACCEL(NUM)  .GT.  *CCNAX>  ACC»"L  <NUM>  sACCMAX 

RETURN 

END 


SUBROUTINE    LTFT    (LlNX, LANE f NUN, ITIMF , IEONI  N  10 

COUPON    /Al/     IREM,  lNEXT,IPAX,ISI2E,IFRSTCR<8l»,1>,TLSTCAR<8<»,  J)  ,VEL<       N  20 

lHOOJtPOSNdSOOI.ACCFKl^OOl  ,  ICARUS  00)  ,  NXTCAR  ( t*  0  0  )  ,IPRECAR < ISO  0)       N  '0 

COUPON    /PAR.AH/    AO  ,FRFEX,  REACT ,  CTCLE  N  kfl 

COMPCN    /OPP/    IOPP<8*,5>  N  50 

COPPCN    /RELAT/    LINEARIS*), NOLINX, LANCAR  («!., 3)  ,NOLANE(8<.)  N  60 

COMMON    /GEONET/    RATIUSC8>,6>  ,  8EGINPT  <  8<.  ,6)  N  70 

COMPCN    /GEON/    CUR8«8<»>  ,0§HO*Y  <8<»  ,6)  N  80 

COMPCN    /TURN/    KREC  (8*  ,6)  ,LREC  (  St  ,6)  ,PTURN  (8<«  t6)  ,  PTR  <  8* ,  »>  N  90 

COMMON    /PV/    P(Sfct3l  ,V(8*,3»  N  100 

COMMON    /CAR/    IACC,TVFL,ITURN,EL,IACCL  N  110 

COMPCN    /MSK/    MASX(20>  N  l?" 

I9ITPfIX,M,N) =ISMFTR(IX,P) .AND.MASX(N)  N  110 

ICGOiIEQN  N  K»0 

I^OMO  N  150 

NT0*5  N  160 

NTF.6  N  170 


M 

600 

» 

610 

1 

620 

M 

610 

f" 

6<*0 

P, 

650 

M 

660 

w 

670 

1 

680 

M 

690 

M 

700 

M 

710 

M 

7?0 

1 

710 

M 

7«-0 

M 

760 

M 

760 

M 

770 

M 

700 

M 

790 

M 

«00 

M 

810 

M 

820 

M 

810 

11 

840 

M 

■<E0 

- 

860 

M 

870 

M 

8  80 

» 

890 

•1 

900 

1 

910 

M 

920 

1 

9'«0 

M 

91.0 

M 

9E  0 

M 

96(1 

M 

970 

M 

9«0 

M 

990 

M 

1000 
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IF     (ITURN.E1.6)    GO    Tn    ton 

NTn«3 

NTFri. 

inn  continue 

AOCFC.JOCFL (NUf ) 

Ic      (PEGINPT (LINK, NTF) -POSN(NIIM)  .LT. TOO. )     GO     TO     110 

CALL    GFN"HP     (LINK, LANE  ,NtJM,  IFGOl 

lEQMIFOO 

CO  TC  5<.0 
110  CONTINUE 

JOPP»IOOP (L INK  ,  T) 

I*     (IOPP.NE.O)  GO  TO  i?n 

IA  =  3 

GO  TO  190 
1?0  CONTINUE 

NOLLL=NOLANF (JOPP) 

JA*0 

CO     1»0    L AN0P=1,N0LLL 

OLL    SIGNAL     ( J5IG, JOPP, LANOO.ITTff ) 

Ic     (JSIG.F0.1.0R.J;5IG.FQ.2.0P.J$IG.FO.i,.OP.J<;iG.ri.6.0R.JSIG.rn.i;> 
1  .0R.JSIG.EO.li4)     GO    TO    110 

I»»? 

GO  TC  17  0 
no  CONTINUE 

Ic  (JSIG.E0.H..0O.  ISTG.EO.?)  GO  TO  t «.  0 

GO  TC  no 

U.0  CONTINUE 

CML  CONST  (LlNr,LJNf,NUr, ICON, 0) 

Ie  (ICON.FO.l)  GO  TO  150 

CALL  CONLT  (L  I  NK  ,  L*V  NF  ,  NUC,  ICON  ) 
no  CONTINUE 

I*  (TCON.EO.O)  GO  TO  1*0 

I»«l 

GO  TC  17  0 
1*0  CONTINUE 

IA»? 
170  CONTINUE 

n   (lA.Fo.i)   gc  to  no 

n     (IA.EO.?)    JA«? 

no    CONTINUE 

IF     (IA.EO.T.ANO.JA.E0.2)     IAr» 
190    CONTINUE 

GO    TO     (T70,<4i40,?*0,  '70n70, 1.70,4.70,  1,70,  '00,  ??!,VH,»m  ,     IACC 
?00    CONTINUE 

IP     (IACC.NF.9)     IET<«9 

V'«VEl (NUM) +ACCPP»^EACT 

I'     (V7.LT.0.)  V?=0. 

A0rFL(NUM)=(SQRT(9.S6,RACIIIS(LlNK,NT0))-V?)/0YCLf 
?10  I*     (NUM.FQ. IFRSTCR(LIN*,LANF) )  GO  TO  500 

N»IPRECAR(NUM) 

Ic  (IBITHdCAR(N)  ,11, Jl  .NF.ITURN)  GO  TO  500 

XXsP (LINK, LANE) -P0"N(NUK) 

Ic   (XX.LF.O.)   *X=.10t 

A0C»A0MV(LINK,LANr)  -VFL  (NUH) > /XX 

IF  (ACC.LT.ACCFL  (NJM)  )  ACC FL ( NUM > = ACC 

GO  TC  5<t0 
??0  CCNTINUF 

Ir  (IACC. NF. 10)  IE1NM0 

V?*VFl(NUH> ♦ACCPO'^EACT 

Iff     (V?.LT.O.)     V?  =  0. 


N 

no 

N 

imt 

N 

'no 

N 

?ifi 

N 

->-,,■, 

'f  n 

?/n 

x  nn 

'1  o 
*?0 

**»n 

*F0 
1F.0 
'70 

■?p  n 
?qp, 
u  n  p 
1.1  0 

<,?n 
i4?n 

itiifi 

i.1-  o 

l4f>0 

u70 

■.*  n 

i»<>0 

F  00 

=>  1  0 

■i'O 
"0 
5^0 


K' 

5f  0 

N 

F70 

N 

«;pri 

N 

cQO 

N 

600 

N 

6  10 

N 

670 

N 

610 

N 

e<.o 

N 

650 

N 

660 

N 

670 

N 

6*0 

N 

690 

N 

700 

N 

710 

N 

7?0 

N 

710 

N' 

71.0 

N 

7F0 

N 

760 

N 

770 

N 

780 
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ACCEL<NUH)i(S0PT(9.66»BArTUS<LlNK,NTF))-v?> /OYCLF 

GO  TC  ?10 
?'0  CONTINUE 

GO  TO  (?i.0, ?50  ,?60l  ,  14 
2kD     CONTINUE 

ACCFL  (NL)H)*0. 

I*  (TACC.NF.3l  IFON=3 

GO  TC  1.90 
??0  CONTINUE 

C»LL  GAP  (ICON, LINK, LANF.ITIME1 

go  tc  (?60,?«.0),  noN 

'60  CALL  GENP.M*  (L  INK  ,L  A  NF  ,  NUM  ,  IFGO» 

I«-0K»9 

GO  TC  5*0 
?70  CONTINUF 

GO  TC  (?A0,300,M0)  ,  IA 
?80  CONTINUF 

IF  (VCL  (NUM)  .LF.O.)  r,o  TC  ?90 

Ic  (IACC.Nf.l.)  IFO-fxi, 

GO  TC  1.90 
?90  CONTINUF 

ACCEL(NUH»«0. 

VL  (KUHI  *0. 

ip   (Iaco.nc.3i   teo<«3 

GO  TO  1.90 
300  CONTINUF 

CALL  GAP  (ICON, LINK, LANF.ITlrEl 

GO  TO  (310, '80>,  f.OH 
MO  Ic  (  (PCSN(NUr>)  ♦V«,L(NUH)  »FEACT  ♦  .5  »Af  0"R»  PF  Af  T 'PFJCT  )  ,GT  .  PfGINOT  (L  IN 
IX, NTF) )  GO  TO  ?00 

GO  TO  2?0 
3?0  CONTINUF 

Ic     (FCSN(NU"I»VEL (NUN) •RFACT*.5»ACCPP»PFACT»PF»r;T*3  0.»CYCLF.GT.9FG 
UNPTaiN*,NTF|  )    GO    TO    330 

GO    TC    510 
330    GO    TC    131.0,350,3601,     IA 

31.0    X=8EGINPT  (LINK,NTQ1  ♦  (HPNORY  (LINK  ,  ITIIRN)  -RFGTNPT  (  lTN*,NTD>  )/i..-(POS 
lN^UfDtVELINUNl'RFlCT^^'ArCPR'REACT'RrArTl 

Ie     (X.LE.O.I     X«.00t 

V?=VFL(NUM) ♦  ACCPP'R.EACT 

IF  (V?.LF.0.»  V?«0. 

ACCEL  (KU«M»-(V?»V2) /(2.»X) 

IFON*<. 

GO  TO  51,0 
■•50  CALL  GAP  (ICON, LINK , LANE , IT IME 1 

GO  TO  (360,3*0),  IOON 
36  0  I"     (POSNINU")  *V»L (NUN) *RFACT* . 5» ACCPR»FFACT»RrACT .GT.qfGINPT (LINK, 
1NTF) )  GO  TO  ??0 

GO  TO  i»90 
3  70  lc     (FCSN(NUN)  ♦  VfLCnUW)  »9FAC  T  ♦  .  5  •  ACCPP'F  FACT  "RFAC  T  ♦  3  0  .  »C  YCLE  .  GT  .  8EG 

1 TNPT  (LINK.NTF)  >  GO  TO  390 
3*0  CALL  GENRHR  (L  INK ,L ANE , NUM, IFGO) 

I^OMIFGO 

GO  TC  51.0 
390  GO  TC  COO,  1.10,  k?»i   ,  IA 
1.00  Ie  (KUM.NF.  IFPSTCP<LTNK,LANE)  )  GC  TO  3S0 

IF0N»3 

GO  TO  51,0 
1.10  IF  (FOSN(NU«»  .LT.3cGINPT(LINK,NTF>-100.1  GO  TO  i»30 

CALL  GAO  (ICON, LINK, LANF.ITIMEI 

GO  TC  (<«?0, 1.001,  I'ON 


N 

790 

N 

MO 

N 

8  1  0 

N 

8P0 

N 

810 

N 

n<t  c 

N 

8?0 

N 

860 

N 

870 

H 

880 

NJ 

890 

N 

°00 

N 

91  0 

N 

9?n 

'J 

9^0 

N 

91.0 

►J 

9T  0 

N 

9eo 

N 

970 

N 

980 

N 

99r 

N 

l  ono 

N 

i  nin 

N 

1070 

N 

U'O 

N 

1  nu  0 

N 

1  0!  0 

rj 

lObO 

N 

1  170 

►I 

1  P8Q 

N 

1  0°0 

N 

lino 

N 

1110 

N 

1 1  ?n 

N 

11  30 

N 

11  1.0 

N 

1150 

N 

1160 

N 

1170 

N 

1  180 

N 

1190 

N 

1?00 

N 

1?10 

N 

i??n 

N 

1?3  0 

N 

t  »*o 

N 

1?50 

N 

1?*0 

N 

i?ro 

N 

i»eo 

N 

1  ?90 

N 

1300 

N 

I'll 

N 

13'0 

N 

1  330 

N 

131.0 

N 

1350 

N 

136  0 

N 

1370 

N 

1380 

N 

1'90 
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if 
:" 

GO 

ie 

1T) 

Ir 
V 
Te 

a** 

GO 

1.50   r» 


LL    CONST     (LINK,  L»NF,»>UM,  ICON,  0> 

riCON.FQ.l)    r.o   to   <.no 

tl  TFNOHP  (I JNK,l»NF,NlM, iF&ni 
TNxIFGI 

TC  «<«0 

(POSN (ND*) *VFL  (N'!"*)  •RF4CT*.6,ACCPR»RFcrT»Pt"ACT»30.'CYCLF.LT.*FG 
PT  (LINX'jNTF)  )  GO  TO  1.5" 
0K  =  11 
sPFGlNc'T(LlNK,NTc)-(POe'N(NUM)tV'rL(NU^)'Pc4r;T*.r»aC>~P:'»P,r4CT»Pf"AC 

•XX. If  .0.)  GO  Tl  *3tl 
*VFl <«tUH) +ACCPP»^E«CT 

(V?.LT.O.)  V?=0. 
CFL(NUH)=(Q.66»9>0IUS(Ll^'<,NTF)-V?«V2)/(2.»Xy) 

TC  330 
LL  GEN9HR  (L  INK,L4NC,n)(m,  ICGC) 

If*H«IFG0 

XX»PFGINPT(LINK,NTir)-(0C«N(NI),<)»VFL(NlIK)»P<-srTt.c»»CCP'?»PcACT**FflC 
IT) 

Te  <XX.Lr.O.>   XX=1. 

V*VfL<Nt)M)  ♦  ACC°°*'*EACT 

lc     fV?.LT.O.)  V?=0. 

A*C»(9«4*»SADIUS(LIN*,NTF)-V?»V»1/(?.»XX1 

IF  (*CC.r,F.»CCFL(N'JM)  )  GC  TO  5 »» 0 

Ie  (»CC.GF.-FLCAT  ftRITMTCAPINII")  ,*,&,(.))  .ANO.Ar^.LT.n.)  GO  TO  ^  b  0 

4CCFL  <NU"*I»4CC 

IC0*«11 

GC  TC  5"»0 
1.M  XX»PFGINPT(LIN*,MT")  -(POSN  (NUM)  ♦VcL<NUrt»(CxCLc»PcA':T)l 

Ie  (XX.LT.O  .)  GO  Tl  5i»0 

IF  (XX.LF.O.)  xx=.101 

4»<«.f6»6AniU$<LIN<,NTFt-VFL(NII«)»VEL<MI'*)l/(?.,*») 

le     (A.LF.-10.S  GO  TO  &<.  0 

4CCFL  (Ni]1)=ACC 

IF0M11 

GO  TO  5i»0 
U70  XX«efGlNPT(LlNK,NTF)-(POSN  (NUH)  ♦  VFL<NUh>»RFACT*.'»4CCP'*»PrACT,R<rAC 
IT) 

lc     (XX.GT.30.»CYCLF>  GO  TO  kbO 

IF  (XX.LE.O.)  GO  Tl  »20 

GO  TO  <  T<»0,  <.«  0  ,  ??0>  •  14 
1.80  C4LL  GAP  (ICON,LINK,LA»F,ITlHE) 

GO  TO  <??0,3«.0>,  nON 
1.90  CONTINUE 

IF  ^UM.EQ.IFRSTC*<LINK,L4NF> )  GO  TO  500 

N»IP»EC4R<NUH) 

IF     (mTM(IC4RCN>  ,33,3)  .NF.ITUPN.ANO.POSN(NtJI)  ,r,r  .  9FGINPT  <L  INK  ,NTF 
1 ))     GC    TO    500 

GO  TC  530 
500  CONTINUE 

X*PC«N(NUM) ♦VFL(NU1)»»F4CT*.^»4CCEL  < NUM > •RE4CT»RC4CT 

TF     (X.LT.ORNOPY  <LlN<,ITl)PN>  )     GO    TC    530 

N=NFFC(LTN<,ITURN> 

1  =  IF.FCUTN",ITUPN> 

NO=LANC4P(N,L) 

IF     (NO.rO.O)     GO    TO    530 

NO=IlSTCAR(N,L ) 

IF      (K.LT.LINK)     GO    TO    510 

xx  =  CFNDRMLlNK.ITmN)  -POeN(Mll«)  ♦FOSN(NO) 

Ir     CXX.LF.n.)     xx=i. 

4CC*A0*(WFL (NO)-VFL (NUN))/XX 


N 

i«.on 

N 

l  *♦  i  n 

N 

1<»?0 

N 

lu*0 

N 

lull 

N 

m?o 

N 

i<»6n 

N 

1<»70 

N 

tt.«0 

N 

11.90 

►! 

1500 

N 

151  n 

N 

1«?0 

N 

ir*o 

N 

151.0 

N 

1550 

N 

156.0 

N 

1570 

N 

1580 

N 

|  C,  Q  0 

N 

1600 

N 

16  10 

N 

1 6  ?  0 

N 

16  3  0 

N 

i  frun 

N 

if.1-  n 

'1 

1M  0 

M 

if>7n 

M 

1*8  0 

N 

1  t.10 

N 

1700 

N 

171  n 

N 

i7?n 

N 

17m 

N 

i7i.  n 

N 

1750 

N 

1760 

'•1 

1770 

H 

1780 

N 

1790 

N 

l»00 

N 

1810 

N 

18?0 

N 

18*0 

N 

18*.0 

N 

1850 

N 

1*60 

N 

1870 

N 

1880 

N 

1890 

N 

1900 

N 

1910 

N 

1920 

N 

1930 

N 

191.0 

N 

19i>0 

N 

19fc0 

N 

1970 

N 

I960 

N 

1990 

N 

'000 
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GO  TC  5?0  N  2010 

CONTINUE  N  2020 

XKrDPND'VCLTNK.ITU^N) -POSN (NUM) *P(N,L)  N  ?13n 

ir  (xx.fo.o.)  xx=i.  n  'o<*o 

AOC=«0»<  V(N,L)  -V^LtNUM)  J/XX  N  'd^tl 

CONTINUE  N  ?060. 

Ic  (»CCCL (NUM) .L^.ACC)  GO  TO  530  N  '070 

ACCEL  <NUM)=ACC  N  2080 

Tr  (IACC.NE.B)  IEON=P  N  '090 

CONTINUE  N  2100 

ACCPAXsFL0AT{IP,ITM(ICAR(NUP),5n,i»))  N  '110 

IC  (#CCPL(NUM) .GT.1CCMAX)  ACCEL  (NUM) =ACCM4X  N  '120 

CONTINUE  N  '130 

RETURN  N  »1«»0 

*J  '1?  0 

END  N  ?1 6  n 


S'JPPCUTTNE  fONLT  CLINK, LANt  ,NUH,  ICON! 

COHPON  /»1/  IRFM,nEXT,T*4X,ISI7F,IP'?STCP<«<.,3),Tl,5TC6R(8i.,3),VEL( 

1  ison)  fPOSN(isoo>,«"CEL  (i'no),icAR(i500)  ,NXTC«p(lennj  ,iprecar<i=;oo> 

COMhON    /r,EOM/    CURBM4I  ,0CN0PV(<'1»,6) 

COUPON    /OPP/    ICPP(ll»,5) 

CCMPCN    /PELAT/    LIN1AR<8<.),N0LINK,LANCAP  (St., 3)  ,  NOL  ANE  (8U  ) 

I*ICFP<LINK,3> 

IC     (I.FO.O)     GO    TO    131 

NOLLL*NOLANE(I> 

CO  1?0  LAN=1,NCLLL 

IF  (LANCAR(I,LAN) .^O.OI  GO  TO  110 

NO=IFRSTCR<I,LAN) 
100  Ic  (NO.fO.01  GO  TO  120 

IF  (POSN(NO)  .LE.rU'R(U)  GO  TO  1?0 

IF  (FOSN(NO) .LF.CU?q(T)«*5.)  GO  TO  11.0 

NO*KXTCAP(NOI 

GC  TC  100 
110  CONTINUE 
120  CONTINUE 
1T0  CONTINUE 

ICONaO 

c 

C      ICON=0  MEANS  NO  CONFLICT  EXISTS 
C 

RETURN 
IdO  CONTINUE 

ICON«l 

c 

C      ICONM  MEANS  CONFLICT  EXISTS 
C 

RETURN 
C 

END 

SUBROUTINE  CONST  <L INK ,LANF ,NUM, ICON, IFL) 

COMMON  /Al/  IREH,INEXT,  IMX,ISIZE,IFPSTCR(8<»,3)  ,  ILSTCAR(8<»,  3)  ,VEL( 
1150  0)  ,POSN( 150 0>,A?CEL (1500)  ,ICAR  (15  00)  .NXTCARCl^OO)  ,IPRECAR(  150  0) 
COMHON  /RELAT/  LINC  AP  <  8m  ,  NOLINK  ,LANCAR  <  8<»,  3)  ,  NOL  ANE  <«<»> 
COMPON  /OPP/  IOPP(5*,5)  p 

COMMON  /GEOM/  CURB(8U)  ,0PNORY(8i.,6)  p    6° 


n 

10 

0 

?n 

0 

in 

0 

40 

n 

50 

0 

60 

0 

70 

0 

PO 

0 

90 

0 

1  00 

0 

11  0 

0 

1  ?0 

0 

1^0 

0 

1  i-n 

0 

1^0 

n 

It   0 

0 

170 

0 

1«0 

0 

1°0 

0 

?no 

0 

210 

0 

?'0 

0 

2*0 

0 

?uo 

0 

250 

0 

?t  o 

0 

270 

0 

?8n 

0 

290 

0 

3on 

0 

310 

0 

3?0 

0 

330 

P  10 
P  20 
P  30 
P  %0 
50 
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r.'^COK     /CAP/     IfirC,TVFL,nUFN,PL,  IflCCL 

i*1*^CN    /MS*/    1«SK(?0) 

T"IT"(I<,M,N)  =  It;HFTeriX,f).4N0.MflSf(N) 

If      <IFL.rO. 1)      GO    T 1     150 

I»ICFP(LINK,1) 
111     I"     (T.EO.0)     GO    TO    HO 

*OLU=NOLANF (I ) 

HO     mO    LAN=l,NOLLL 

If      (lANOARt I, LAN)  .^T.O)     GO     TO     H.  0 

NO=IFPSTCR(I,LAN) 
110     IF     (NO. =0.0)     GO    TO     1*8 

Ie     (POSN(NO) .LF.CU*R(I> )    GO    TO     HJ 

IF     (V'L  (WOI  .LF.O.  )     GO    TO    UO 

IF     (POS«((NO>  .GT.CU?fl(II +35  .»     GO    TO    1?0 

K0N«1 

RETURN 

no  continue 

N"«M<TCAR(NO) 
GO    TC    110 
HO     CONTINUE 
140     CONTINUE 

Ic     (I.E0.I0PP1LINK,  ?) )     GO    TO     1  =  0 
I»ICFP(HNK,3> 
GC    TC    1A0 
150     I  =  ICFP(lINK,i»> 
160     IF     (I.FO.O)     GO    TO    190 
NOLU*NOLANE(I  ) 
00     ?00    LAN*1,N0LLI 

lc     (IANCAR(I,LAN) .r1.0>     GC    TO    200 
NO=IFPSTCP(I,lAN> 
170     IF     (NC.FO.O)     GO    TO    ?00 

IF     (FOSN(NO) ,LT.CU?R(I) )     GO    TO    ?00 
IF     (VFL(NO) .LF.O. )     GO    TO    '00 
Ic     (POSN(NO) ,lT.CU*fl<I»*5S.1     GO    TO    110 
NO=N*TCAR(NO) 
GC    TC    170 
110    CONTINUE 

Ie     (IPIT"(ICAR(NO)  ,111,1)  .GF.3.ANC.ITUP.N.LT.5)     GO    TO    ??0 
190    CONTINUE 
POO    CONTINUE 

IF     (I.F1.I0PP(LINK,5>)     GO    TO    ?10 
I»ICeP(lINK,5> 
GO    TC    16  0 
?10    CONTINUE 
ICOMO 
r. 

C      IOONiO  1EANS  NO  CONFLICT  EXISTS 
C 

RETLRN 
??0  CONTINUE 
ICONM 
C 

C      IOONM  MEANS  CONFLICT  EXISTS 
C 

RETURN 
C 

END 


p 

70 

p 

8  0 

P 

90 

p 

1  00 

p 

110 

p 

1?0 

p 

no 

D 

11.0 

P 

150 

P 

160 

P 

170 

P 

180 

P 

i»r 

P 

'00 

P 

?10 

P 

??0 

P 

->xn 

P 

»<«o 

P 

?5  0 

P 

?e  o 

P 

?70 

P 

?80 

P 

•  ?qf] 

P 

^no 

P 

310 

P 

*?0 

P 

310 

P 

3*0 

P 

*e  o 

D 

'60 

P 

370 

P 

TRP 

P 

T90 

P 

i.nn 

P 

1.1  0 

P 

'.?0 

P 

H30 

P 

i«i.O 

P 

1.50 

P 

1.60 

P 

1.70 

P 

i»«0 

P 

1.90 

P 

5  on 

P 

510 

P 

5?0 

P 

R30 

P 

5«.0 

P 

«!50 

P 

560 

P 

570 

P 

580 

P 

590 

P 

600 

P 

610 

P 

6?0 

P 

630 

SUBROUTINE  GAP  (ICON, LINK, LANF.ITIPE) 
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COMfON  /Al/  IREH,HFXT,lrAX,ISI7F,IFRSTCR(8i.,3>,ILSTCAR(8i.,T>,VEL<   0    ?0 

11500)  ,POSN(  150  0),  AOCEL(  1500)  ,ICAR<  1500)  ,NXTCAfm500>  ,  IPRECAR < 150  0)   0    JO 

COMf-ON  /r.EOM/  CURB  (  81.)  ,  CPNORY  ( 81,  ,6)  0    <,0 

COMMON  /OPP/  ICPPMl»,5>  0  50 

CCMM3N  /$IG/  LCYCLP(8l»),N0PHAS(a«t,3),NPHASF(8l.,1,5),LPH»SE(B*,J,5J   Q  60 

1  .LOFFST  (8(»,  3)  0  70 

COMNON  /RELAT/  LINO  AP  (  8<t)  ,  NOLINK  .LANCAP  (8*.,  3  )  ,  NOL  ANE  (8<.)  0  80 

CCMMON  /MSK/  MASKI201  0  g() 

I1ITM(IX,N,N)«ISHFTR(IX,f) .ANO.MASK(N)  0  100 

DIMENSION  TAALE1U5)  ,  T«PLF?(15)  0  iin 

INTEGER  OFEPT  Q  1?Q 

OATA    «T«BL.fUII,I»l,15)/.10,.23,.fc2,.60,.76,.86,.92,.96,.9«,.99,.9      0  130 

195, .9975, .999,  .999<.5,. 9997/  n  1(,0 

OATA     <TA«LE?(I),I*l,15)/.01,.06,.20,.l,0,.6?,  .80,.90,.96,.982,.Q93,       0  150 

1.9975, .9991, .9997, .9998, .9999/  n  160 

RN.flANF(O)  „  17Q 

I*IOFP(LIH*,3>  Q  ..(, 

Ie     CI.FO.O)    GO    TO    t70  Q  190 

N<ULL«NOLANE<I>  0  ?„fl 

DO     170    LA*»1,N0LLL  0  ?10 

If     <L»HCAR(I,LAN) .cO.O)    GO    TO    170  n  ??0 

NO=IF»STC«(I,LAN)  0  7,0 

inn    if    (WO.eo.u)    r.o   TO    170  o  ?40 

IF     CPOSN<MO>.GT.CIHB(I)*35.)    GO    TO    160  0  ?*0 

I9  =  IBTTN(ICAR«N0),U,3)  0  ?f]„ 

IP     (IB.GT.i.)    GO    TO    160  0  ?70 

Ic     (P0SN(HO).GT.CUR9(I)*?0.)    GO    TO    180  Q  ^80 

X*CURBU)-POSN(NO)»20.  0  ?qn 

IE     (ACCEL(NO) .LE.O.)    GO    TO    130  o  *00 

110    T3IiVEL(NO)»V^L(NO)»?.»ACCEL(NO)»X  0  310 

T=ABSCVEL<N0)-S0RT<T3I))/ACCELCN0)  0  ^?n 

GO    TO    UO  Q  ,,„ 

1?0  XC  =  F0SN(NO)-VEL(NO)»¥EL(KO)/(?.»ACCEL(NO))  0  31.0 

IE  (XE.LE.CUP8(I)*»0.)  GO  TO  170  g  ^50 

GO  TO  110  n  760 

UO     IF     (VEL(NO) .EO.O.)     GO    TO    170  0  370 

IP     <AfCEKNOI.LT.0.l    GO    TO    1?0  0  ™0 

T*X/VEL(NO)  0  3q„ 

11.0    CONTINUE  0  ,,„„ 

IE     (T.LT.3.)    GO    TO    180  0  ,,10 

IP     (T.GT.10.)     GO    TO    170  n  u?n 

IT.?..T-5.  „  III 

NCYC-(ITINE-LOEEST(LlNK,LANE))/(LCYCLe<LINK))  0  1.1.0 

OFFPT«NCTC»lCYClE<L INK) »L0FFST (LINK,  L»N€>  0  <,50 

I^     CITIME-OFFPT.LF.?)     GO    TO    150  Q  4I0 

IP     (TABLEKIT)  .IE.RM)    GO    TO    ISO  o  k76 

GO    TO    170  q  %„ 

150    IF     <TABLE2(IT)  .LF.^N)    GO   TO    180  0  1.90 

GO    TC    170  0  50„ 

160  CONTINUE  0  «;.. 

NO=NXTCAR(NO»  Q  5?0 

GO  TO  100                   .  0  5„ 

170  CONTINUE  0  etfl 

ICON=l  „  55Q 

C  0  560 

C      ICON=l  MEANS  ACCEPTABLE  GAP  0  570 

C  0  580 

RFTURN  0  590 

180  CONTINUE  q  6()0 

ICOM?  Q  610 

C  Q  620 
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0 

610 

0 

uo 

0 

65  0 

g 

MO 

n 

«,70 

c 

o^TURN 

r 

END 


SUPRCUTINE  BOOK  <LINK,LAKF,NUM,ITIMF> 

COMMON  /Al/  IPFM,I>(FxT,TMAX,IST7ElIFRSTCP(')<.,1),lLSTrAR<S4,1>,VFLC 
IHOO),POSN(15  0  0),  A":rFL<l«0O),ICAR(15OO>  ,NXTCARC15  00>  ,IPRFCAR»1500) 

COMMON  /CAP/  I«CC,TVFL,ITUPN,FL,IArCL 
COMMON  /PARAM/  AO,F^FFK,PFACT,CYCLF 

common  /r.EOM/  ruR"(*i.)  ,opnopy(«(,,6) 

COMMON    /»UK/    NH0L0<84,3) 

COMMON    /B2/    TTIME<94),TCTST(8<.>  ,  TRTI ME < 15 , 1 0 5)  ,  TTT  I  f.F  .TTOIST  ,  HSTO  ( 
1 19  ,  3 , 141 

COMMON    /R3/    DELAYM4>,OELOFV<84)  ,NCALL(84) 

COMMON    ZTP.CE/    KTPACE.LKTPCEMS)  , MOTRC < 15) , I NTTPC , KNTPAC < 15 > 

COMMON    /KNNT7/    NCA^(8i.»,K0l)TPT,ISTART,IcNO)l<-FN(av) 

COMMON     /MSK/    MASK('O) 

OTMENSION    H0(105) 

flTf (IX,1,N»=TSHFTR(IX,M) .ANO.M»SK<N) 

RCAL    LNKTIH 

Ic     (FOSN(NUM)  .LT.OINORY  (LINK.ITURN)  )     GO    TO     11.0 

NHOL0  tLINK,LANE)=NHOLD(LINK,LANF) +  i 

NCAR<LlNK)»NCAR<LINK>*1 

LN*TIM»FLOAT(ITTlE-IBITM<ICAP(NUf>  ,0,11)  ) 

TTTlMf«TTTINE*LNKTIM 

STABT«FLOAT(IBITMUCAR<Nljri>  ,  1  4  ,  9  )  ) 

IF  (LINK.GF.ISTART)   START«-STAPT 

TTPIST«TTOIST+POSN(NUH)-fTART 

TT I  ME (LINK) =TT IME <L INK) ♦LNKTIM 

TO I  ST (LINK) *TDIST<LINK)»POSN(NUM)-?TART 

UNOFL»(POSN(NUM)-START) /TVEL 

OFL«LNKTIM-UNOFL 

CALL  STIX5  (DELAY (L INK), PELOFVU INK), OEL.NC ALL <LTNK),VMFaN,STDFV> 

I°OS»INT<POSNCNUM)-DnNORY( LINK.ITURN)) 

CALL  JBITM  (ICAP(NJM), 14,4, IPOS) 

DO  180  I»1,NTRACE 

IF  (LTNK.EQ.LKTRCE(I))  GC  TO  110 
100  CONTINUE 

GO  TO  11,0 
110  I'  <IPITM»ICAR(NUM)  ,56,1). EO.O)  GOTO  140 

KNTRAC»I»«KNTRAC(I>  »1 
00  1?8  J»l, 105 
1?0  MO(J)»TRTIHE<I,J) 

CALL  STIX?  (HO,?00. ,0.,100,LNKTIM,11HTPAVFL  TIME , 1 1 , LINK) 
00  130  J*l,105 
110  T"TIME<I,J)=HQ(J) 
1  <<0  CONTINUE 
RFTURN 

FNO 


SUPPCUTINF  OUTPT  (ITIHE)  <; 

COMMON  /Al/  H?PM,IN?XT,lMAX,ISI7E,IFPSTCR(8«i,3),ILSTCARC8«,,3)fVEL<  S  ?0 

1 1900), POSN (1500), A:CFL(160n>,ICAP(1510),  NX TCAR(15  00>  ,  I PRECAR  ( 150 0)  <5  TO 

COMMON  /7f}/  lHCLE(15no> , LACTONE  S  ,,(, 


R 

p 

1  0 
70 

e 

in 

p 

L(\ 

p 

5n 

p 

60 

R 

70 

P 

so 

p 

*o 

P 

1  00 

P. 

11  0 

P 

1?0 

P 

1  10 

R 

11,0 

P 

IFO 

R 

1  hO 

R 

170 

P 

180 

o 

1°0 

R 

?00 

P 

710 

R 

?»0 

P 

7*0 

= 

'(.0 

R 

'r0 

P 

760 

p 

770 

P 

■>»  0 

R 

?qn 

p 

inn 

P 

*1  0 

R 

*?n 

0 

no 

» 

**»o 

R 

*50 

R 

360 

P 

*70 

P 

180 

P 

390 

P 

<»no 

P 

410 

P 

470 

R 

430 

R 

440 

P 

450 

P 

460 

10 
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rQphCN    /GEO-i/    CUR'M  8<»)  ,  OPNDPY  (8i»  ,6) 

COUPON    /REIAT/     LIN:AP(  <?<.)  ,  NOLINK.LANCAP  (  «>,  ,  3>  ,NOL4NF  (Si,) 

CI^ON    /TURN/     NREC<8<4,6)  ,LFFC  (fU,6>  ,PTURN(Hi.,CO  ,PTRN(8<., '1 

CCf^CN    /RUK/    N>0Ln(8<.,  T> 

Cl^CN    /1U/     L'RCUF(15,'«)  ,LQ  (  1  D)  ,  NO 

COt-fCN  /I?/  TTIME(1(«)  ,TDTST  (81.)  ,TPT IMF  <  1^,10 c-)  ,TTT IMF, TTDIST,HSTO( 
1  I1?,  3,ll») 

COKfTN    /TRCF/    MPATE,LKTFCF(15)  ,  NOTRC ( 1 5 > , INTTRO , KNTFAC ( li > 

COHHON     /*WNT7/     NCAR  («(,)  ,NOUTPT,  IST6RT,  IFKn,<GrN(  "vt) 

COMMON    /CAPACTY/    LNCAP 

COffCN  /OARAP?/  TV"L*N(8».f  ?>  ,T  VFLSK,  (8t,?l,A<-CMN(?)  ,  ACCSIG (  ?)  ,0EC* 
1N(?)  ,OFC<$IG  (?)  ,FL1n|<?)  ,ELSIG(2)  , PRTRUCKieo 

rOP^CN    /*<!•</    HASKCO) 

OT^SIOM  hO(<,5) 

RFAL    NORMAL 

IaITMIX,1,N)«ISHFTR(IX,M.ANn.WASMN> 

OTHFKSION    PTRI6) 

DC     27(1    LTNK«l,NOLlNK 

NOLNNsNOLANF(LlN<) 

DO     270    IAN*«1, NlLM* 

IF     (NHOLO(LINK,L*N^> .EO.0)     GO    TO    '70 

NHHH«NMOLO(LlN*,LANF) 

DT     ?€0    NUW"1,NMMH 

TNDE""IC','STCP(LTNK,  LANE) 

IC  =  MTC4R(IN0FX) 

Ic     (LINK.LF.NOUTPT)     GO    TO    ?00 

ITI)RN=I9IT"1(ICAP(I-<0FX)  ,S3,3) 

POSMINOFX)  "POSNIINOFX)  -CBNQRY  (  L  INK  ,  I  TURN) 

N=NREC(LINK,ITUPN) 

L*LRFC(LINK,ITUPN> 

LTNCAP(H>«LINCAR(N) +1 

L«NCAR(N,L) «L*NCAR(N,L) *1 

LNCAP«LANCAR(N,L> 

CALL    JBITH    (ICAP(I40FX)  ,0,M,ITIMF) 

IL*ILSTCAR(N,L> 

IF  (IL.EO.0)  &C  TO  100 

NXTCAR(IL)=INOEX 
100    ILSTC«R(N,L)*lNnEX 

IORECAP(INOEX) «IL 

NXTCAR(INDEX) *  C 

IF  (L«NCAR(N,L) .FQ. 1) 

Rh=R«NF(0) 

IF  (NOLANE(LINK)  .GT.  1) 

OO  110  1*1,6 

JTURN'I 

IF  (RN.LF.PTURN(Ll"<"C,I)  )  GO  TO  HO 
110  CONTINUE 

GO  TO  1*0 
1?0  PTR(1)»PTURN(N,1) 

PTP  (2>»PTURN(N,?> 

PTP(3)="»TRN  (N,L> 

PTR  <<,)  =PTURN(N,i.) 

PTP  (F)=°TURN(N,5) 

PTR (6)=PTURN(N,6) 

IF   (ITURW.NF. 1 .ANO. ITUPN.NT , 

00  130  1*1, fi 

jturn*i 

IF  (RN.LC.PTP(  1)1  ",0  TO  H,  n 
1*0  CONTINUE 
HO  C1NTINUE 

00  150  I=1,NTRACE 


IFRSTCR(N,L)*INOFX 
GO  TO  1?0 


PTP( J)=PTU°N (N, T) 


s 

[>0 

s 

f  n 

5 

7n 

s 

«0 

s 

90 

«? 

1  no 

s 

110 

s 

1?0 

5 

130 

S 

1U 

S 

lr  0 

s 

160 

s 

170 

s 

ISO 

<; 

1  90 

5 

?no 

s 

?10 

<; 

??0 

s 

?.  *0 

s 

9  1,(1 

s 

'bO 

s 

?f>0 

s 

'70 

S 

•>  a  r\ 

s 

r>  q  n 

S 

7nn 

5 

'1  0 

S 

*?o 

9 

3*0 

s 

*i»0 

5 

350 

S 

*t-n 

S 

T7n 

«: 

3f>  n 

S 

*S0 

s 

4  no 

<; 

1*1  0 

S 

4?0 

s 

V'o 

s 

UUP 

s 

U*  0 

s 

(»b0 

^ 

1,7(1 

s 

".■(O 

s 

1.90 

s 

r  00 

s 

5i  n 

s 

s?n 

s 

MO 

5 

5<.0 

«: 

5*0 

S 

560 

5 

570 

s 

c«0 

s 

540 

s 

600 

s 

610 

s 

6?0 

s 

630 

5 

6<«0 

S 

650 
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Ir  (N.FI.LXTRC7  (I). ANO.LINK .FQ.LKTRCE(I-l) )  KOTO  160 
150  CONTINUE 

C»LL  J9TTM  (TOAO(I-40FX)  ,^6,1,0) 

GO     TC     190 
lfO     I*     <IM  .GT.NTRACF)     GO    TO    170 

I*     (NRFCfN,  JTUON)  .e'iJ.LKTPCF(I*l)  )    GO    TO    170 

CALL    JBITM     (ICAR(INOFX)  ,*6,1,0) 

CO    TC    190 
170     IP     <INTT»C.FO.NOTP?(I> )     CO    TO     180 

N0TRC<I)«NOTRC (I)+l 

rUl    JPITM    (ICAP(IJOFT)  ,c6,l,0) 

CO  TO  190 
180  NOTPC<I)«0 

CALL  JPTTN  (ICAP(IHOEX) ,*6,1,1) 
190  CALL  JBITM  (IC  AP  (HOEX)  ,  33  ,  1 ,  JTURN) 

IVEhTYP*I8ITM<  ICARCIN0FX),5i.,?> 

ITAPVFL«NORMAL  (TVELMN  (N,  T  VFHTYP)  ,TVELSIG(N, I V^hT Y=M  ) 

CALL  JPITM  (ICAP(INOEX) , ?6 , 7, ITAPVFL ) 

CALL  JBITM  (ICAP(INOFX)  ,36,i»,7) 
?00  CONTINUE 

LTNCAP(LINK)«LINCA? (LINK)-l 

LANCAR<LINK,LANF)*LANCAR<LTNK,LANE>-1 

Ie  (L*NCAR<LINK,LA<IE).PQ.0)  ILSTCAP ( LlN< t LAN* ) =0 

I*  <LANCAR(LINK,LA><*)  .FO.0)  IFPSTCP  (  LIKK  ,L  A  NO  il 

OO  210  1*1, NO 

If     (LlNf.EO.LOd)  )    GO    TC    220 
210    CONTINUE 

GO    TC    ?30 
220    I'     <L1UEUE(I,LANE) .L^.O)    GO    TO    230 

L1UFUF«I,LANF)  «LQU*UE (I  ,LANF > -1 
?»0    CONTINUE 

I*     UANCAR<LINK,LANF)  .FO.0)     GO    TO    2*0 

IFRSTCR(LINK,LANE)»IF 

I°RFCAR(IF)«0 
?<.0     Ie     <LANCAR(LINK, LANE)  .ECO)     TLSTCAP  t  LT  M<  ,LA  NE)  =0 

Ic     (LIN<.GT.NOUTt>T)     GO    TO    260 

LASTCNF»LASTONF*l 

If     (LASTONE.GT.ISI7E)    GO   TO    250 

IHOLULASTONE)  *IN0EX 
250  CONTINUE 
?60  CONTINUE 
270  CONTINUE 

00  290  Iil, NO 

L*LC(I) 

NsNOLANE (L) 

00  290  LN=1,N 

00  280  J=l,li» 
280  H0(J)»HSTO(I,LN,J) 

OLEMFLOAT(LOUEUEU,LN> ) 

CALL  STIX2  (HQ,10., 0  .  ,  1 0,QLEN, 12H0UEUE  LFNGTM ,12, LINK) 

00  29«  J*l,l«» 
?90  HSTC(I,LN,J)=HO(J) 

RETURN 

END 


SUPPOUTINE  QUEUE  (LINK, LANE)  T    16 

COHPCN    ftU    IREM,INEXT,UAX,ISI7E,IFRSTCPC8i.,3>  ,  ILSTCAR  <8<*  ,  3)  ,VEL(       T         28 

1  15  0  0),POSN(15  0  0>  ,ACC"L(1500),ICAF(1500>  ,  NXTCAR  <1<-  0  0  )  , IPRECAR < 150 0)       T  3  0 


s 
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^ 

670 

s 
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s 
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s 
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5 
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s 

720 
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7*0 

s 

750 

s 

760 

s 

770 

s 

780 
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7<>0 
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8  on 
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820 
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B?0 
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8*0 

s 

8bn 

s 

860 

s 

870 

s 

880 

s 

*90 

s 

900 

s 

910 

s 

9?0 

s 

9^0 

s 

9U0 

s 

9b0 

s 

960 

s 

970 

c 

980 

s 

990 

s 

1000 

s 

1010 

s 

io?n 

s 

1030 

s 

1  o-*o 

s 

1050 

"5 

1060 

s 

1070 

s 

1080 

s 

1090 

s 

1100 

s 

1110 

s 

1120 

s 

1130 

s 

tl<»0 

5 

11E0 

s 

1160 

s 

1170 

s 

1180 

<; 

11«0 

s 

1?00 

227 


TABLE     B-  2  ,       cont. 


r.CctCS    /ou/  LQLFUF<15,3> ,LQ<10>,NIO 

GOHMCN  /PELAT/  LIN~AO(  81.)  .NOLlNK.LASrAP  (81.,  3)  ,NOL  ANF  (B<«> 

CCHhON  /MSK/  MASK('O) 

IPITMIX.N.NI"  I*HFTR(IX,M  .  AND. MASK (N I 

DO  100  1*1, NLO 

Tc  (LINK. F1.LO  (Til  50  TO  110 
100  CONTINUE 

GO  TC  160 
110  CONTINUE 

Ie  (LQUEUF(I,LANF> .FQ.0)  GO  TO  150 
LLn*lOUFUE(I,lANE> 

IF»IFPSTCR( LINK, LANE) 

Ic  (LLO.GT. 1)  GO  Tl  1?0 

NO*NXTC«P(IF> 

GC    TC    1H0 
1?0    OT     130    INTE*?,LL0 
130     IFrMTCAP(IF) 

Ie     (IF .FO.lLSTCAP(lINK,lANF> )     Go    TO    160 

N1=NXTCAP(IF) 
11.0    CONTINUE 

lc     (NP.E1.0)     GO    TO     160 

I0=IPTTm  (ICAR  (KO)  ,36, J.) 

IF     (IO.Ne.l.»M0.IQ.NF.3.ANO.IO.NF.f.>     GC    TO    150 

LIUFUF(I.LANF)  •  LlUe'UE(I,LANF>»1 

IF     (NO.Fr.II.STCAP(LlNK,LANE>  >     GO    TO    160 

NO*NXTCAR(NQ> 

go  to  mo 

150  CONTINUE 

IF  (LANCAO(LlN»,LAMF) .EO.O)  GO  TC  16  0 

NO=IFPSTC9(LlN«,l»NF» 

GO  TC  11*0 
160  CONTINUE 

PCTURN 

END 


SUBROUTINE    SUHAPV    (  VOL  ,  HIME,  SUMKNT) 

CO^ON    /RELAT/    LINT  «P  (  81.)  ,  NOLlNK  ,LANCAP  (  8fc ,  3)  ,  NOL  ANF  (6k  > 
COMMON    /R2/    TTINE(m,l  ,T0IST(8M  , TRTTMF ( 15, 1 05  I  ,  TTTI IF, TTDIST ,MSTO ( 
115, 3, H.) 
COMMON    /T3/    0ELAY(»l,),nFL0EV(8<.)  ,NCALL(8«.) 

CCMMCN    /TRCF/    KTPAOF.LKTPCF  (15)  ,S0Ti?C(l'5l,INTT9C,<NTPAr  (15) 
COMMON    /KWNTZ/    NCA?(8*»  ,  *.OUTPT  ,  I  START  ,  I  E  *D,  KGFN  ( *»..  > 
COMMON    'OU/    LQUFUF(15,3I ,IQ<10> ,NO 
COMMCN    /OPLOTQ/    OU1(«»,IPLCT 
COMMCN    /TIMKH/     Inl T I N, LRUN , MINI T IM 
INTFGFR    SUMKNT 
OTMEKSION    H0(105> 
DIMENSION    VOL (*k) 
I°LOT=0 

KTIMr (ITTMF-INTTIM)  /60 
WRITE     (6,31.0)     'UM'NTfKTIM 
WPITF     (6,350) 
DO     140    LTN* =>l,NOLl1K 
H'lTF     (6,360)     IINK,NCAR(LINK) 
IP     (LlNK.LT.ISTAPT)      GO    Tf     100 
HRITF     (6,370)     ^i-.rM(LINK) 
DO     110    LK=1,NTRACF 
Ic     (LINK  .FO.LfTPCF (Lf )  )     GO    TO     1?0 


T 
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T 

r>  n 

T 

60 

T 

70 
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80 
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"0 
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1  no 
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1?0 

T 
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T 

11.0 

T 

lc0 

T 

160 

T 

170 

T 

180 

T 

1°0 

T 

?no 

T 

?in 

T 

??o 

T 

730 

T 

?i«n 

T 

?5(l 

T 

?t.O 

T 

'70 

T 

?8P 

T 

?Hfl 

T 

3nn 

T 

310 

T 

3'0 

T 

*30 

T 

31,0 

T 

35  0 

T 

38  n 

T 

370 

T 

380 

U 

i  n 

u 

?0 

11 

30 

u 

1.0 

u 

r0 

II 

60 

u 

70 

u 

80 

u 

90 

u 

1  00 

u 

110 

u 

1?0 

u 

1  30 

u 

H.0 

u 

150 

u 

lfcfl 

u 

170 

u 

180 

u 

190 

u 

?00 

u 

210 

u 

??e 

u 

?30 
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110  CONTINUE 

GO  TC  130 
1?0  H9ITE  (6,390)  KNTRAC(LK) 
130  WRITE  (6,390) 
140  CONTINUE 

IF  (TTTIME.EQ.O.)  TTTIME=1. 

SPEED=TTDIST/TT TIME/ 1.47 

WRITE    (6,400) 

NV  =  0 

DO  150  I*l,NOLINK 
150  NV=NV+NCAR(I> 

TVM*TT0IST/5280. 

TO=0. 

DO    160    I=l,NOLINK 
160    TO*OFLAY(I)+TD 

ATO=TD/FLOAT(NV) 

ATDM«TO/TVM 

TTR*TTTIME/TVH 

SUMSO«0. 

DO    170    I*l,NOLINK 
170    SUMJCSUMSQ+DELDEVd) 

STDEV*SQRT(ABS(SUM>Q/FLOAT(NV)-ATO»ATD> ) 

ATT«TTTIME/FLOAT(NV) 

WRITE    <6,410>     NV.TVH, TO, ATO,STDEV,ATOM,TTTIME, ATT, TTR, SPEED 

WRTTE    (6,420) 

00  260  L=l,NOLIN< 

CALL  STIX6  (OELAY(L>,DELOEV(L> , OUM1, NCALL (L) , VMEAN, STOEV) 

IF  (TTIME(L)  .ECO.)  GO  TO  180 

SPEE0=T0IST(L)/TTI1E(L>/1.47 

GO    TC    190 
180    S°EEO=0. 
190    Ic    (NCAR(L)  .EQ.O)    "JO    TO    200 

TIM=TTIME<L)/FLOAT(NCAR(L)> 

GO    TO    210 
200    TIM»0. 
?10    TVM«TDIST(L)/5280. 

IF    (TOIST(L).EO.O.)    GO    TO    220 

ATOMDELAY(L)/TVM 

TTR«TTIME(L)/TVH 

GO    TO    230 
??0    ATDP«0. 

TTR»0. 
230    IF     (hCARU)  .EQ.O)    r>0    TC    24  0 

ATT«TTIME(LI/FLOAT(NC»R«L)» 

GO    TC    250 
240    ATT*0. 
250    HRITE    (6,410)     NCAR<L),TVM,DELAY(L>, VMEAN, STOEV, ATOM, TTIME(L), ATT, T 

1TR.SPFEO 
260    HRITF    (6,430)     L 

DO    290    LK»1,NTRACE 

LNKE*LKTRCE(LK) 

IF     (KNTRAC(LK) .FQ.O)     GO    TO    280 

DO    270    1*1,105 
270    HO(I)=TRTIME(LK,I) 

CALL    STK3     (HO,200.,0.,1CO,LNKTIM,11HTRAVFL    TIME , 11 , LNKE , 0) 

GO    TC    290 
280    W3ITE     (6,440)     LNKE 
290    CONTINUE 

DO    330    L=1,NQ 

L<=LC(L) 

N=NOLAN£(LK) 
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u 

360 

u 

370 

u 

380 

u 

39  0 

u 

«♦  no 

u 

410 
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590 

u 

600 

u 

610 

u 

620 

u 

630 
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640 
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660 
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670 
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690 
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710 
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720 
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730 
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do  330  ln«i  , n 
no   ion   1*1,12 

'10     T  =  T«HSTO(L,LN,  I) 

Ic     (T.E1.IM     50    TO     3?0 

no    no   j«i,  li, 

'id     HO(j)=HST0(L,LN,J) 

CALL    STIX3    (HO, ID.,  o., 10.OUM, 12HCUFUE    LENGTH, i? , LK, LN) 

no  tc  no 

'?1  WITE  (<i,i,SO)  LK 
'10  CONTINUE. 
PcTuRN 

'1.0  FORMAT  (lMl,(,X,i25(lH»),/5X,i?r(lH»),///60Xt  11^'JMMAPY  N0.,I3,//5 

19X,   «mTTmc,h,   sh  MINUTES, ///9X,  125<1H»»  ,/5X,  1'5(1H»)  ) 
V>1)    FOREST  I///////23X,  H.HNU1.  r,FNFBST»-0,ii4X,  HHr<TT  VOLUME, 1  OX,  1?H 

iT'ace  volume,///) 

1*0    P0RM4T    MM*,qx,      I»-ILIN«,I3,36X,T5) 

370     FORMAT     MM*,2feXtI5> 

'HO  FOPMAT  (IN*, 71.X, 15) 

190  FORMAT  (1H  ) 

1.0  0  FOPMAT  (IN?, /////MX,  7HAV«"PA&r,i.x,  tHTOTOL.ex.  7HA  VEPAGF  ,<•  X  , 
lf>HTRAVEL,/l3x,  SHT0TAL.6X,  5HT0TAL.5X,  y  MTOTM  ,*X,  7MAV«-*Ar,r,b 
?X,  ^HOELAY.fX,  3-tnFL»X,5X,  f  wTRA  VFL  ,  5  X ,  6HTR1V^L,6X,  i.HTI"irf5 
IX,  7HAVF9«r,F,/llx,  8HVEHICLE«,i.X,  7H  VFHI  CL  F  ,  U  X  ,  rHr>rL  4  y  (  rx  f  5 
i.hOFLAY,5X,  9m«;T0.  OFV..1.X,  5"SEr./,6x,  UMTIH^,7X,  (,mTIHE,6X, 
^5HSFC./,«.X,  5HSOF?0,/UX,  9HPR0CES<;cc,i.X,  9H1  TL  CS  ,..  X  ,  SHVEH.SF 
<>C.,'X,  9HS*C./VEH.,1X,  9HSFC./VEH.,3X,  7MV^M. -T . , XX ,  1HVEH.SFC 
7..3X,      9HS«"C/vrH.,  3xf-     7HVEh.mi.,$x,       3hhph,//( 

1.11  FORMAT  <13X,r5,<,x,r8.3,?x,F7.0,SX,r*.3,5x,r7.3,<x,F8.3,3X,r7.0,UX, 

l".?,4X,F7.?,5x,e5.2> 

i.?0  FORMAT  MM»,7M0VER.ALL,//> 

HO  FORMAT  (1H>,<,HLTNK,  13) 

1.1.0  FORMAT  <1HI,,5X,S(H»>  ,  19H 

1»>  ) 

UBO  FORMAT  ( 1  H<» ,  E-X  ,5  (  H»  >  ,  2?H 

1 <1H»)) 

END 


TOTAL  CARS,  HNK,Il»,   %M 
CARS  IN  OUFUF,  LIN<, lu, 


0,5>X,S(1H 
,=  0,tX,5 


*50 
*60 
870 
fl«0 
«90 
900 
910 
9?P 
910 
940 
9b0 
9F.0 
970 
980 
990 

moo 

1010 
lO^O 
1010 
1  ni.0 

in^.o 
i0f  n 

1070 

1080 

1 000 
lion 
inn 

I  i?o 
1 1 10 
1 11.0 

I I  r  n 
1160 

1170 
1  1«0 
1190 
l?O0 
1  '10 
1  "0 


SUBROUTINE  J8ITM  (X,M,N,Y> 
COMMON  /MSK/  M,A9X(?0I 
INTEGER  X1,X,Y,Y1 
X1=I?HFTR(X,M)  .AND. 1ASK  (M 
Xt«ISHFTL(Xl,«) 
Yl=Y.ANO.HASK(N) 
X=I?MFTL(Y1,H) +  X-X1 
RETURN 

end 


V 

10 
?0 

V 

10 

V 

1.0 

V 

SO 

V 

'  0 

V 

70 

V 

80 

V 

90 

V 

1  00 

SU9RCUTINF    STIX1      (TA9LE,VMAX,VMIN,NINK,V*r»,ITITLF,LNTHTL,UlNK) 
COMMON    /OPLOTO/    T»LOT,TCATE ,ISM, IOVER, IUNOER .PLOTSW 
DIMENSION    TABLE  (111) 
ISDEx«NlNK+i» 
T^ATF«DATF( 0) 

do    100  K'i, index 

TAPLF(K) =0.0 


H 

10 

H 

?0 

W 

30 

W 

1.0 

N 

50 

H 

60 

W 

70 
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cont. 


OC TURN 
FNP 

SUPRCUTINF  STIX2  <T  A  9LF  ,  VM  A  X  ,  VMI  N  ,NI  NK  ,  VAB,  I  T  I  TL  F  ,  L  NTHTL  ,  LI  NK) 

DIMENSION  ITTTLE(L"«TmTL)  ,  TJRLf  (MNO 

TAPLF(NTNK*X>=TA9LE(NINK»3)*VA9 

TAPLF(NINK*l»)  =  TAflLc(NlNK«i,)*V«fl»VAP 

VlNKMV^AX-VMINt/NlNK 

Tff     (VAP-VMIN)      100,110,110 

mo  continue 

GO    TC    120 


H         80 
M  90 

M       100 


l]'J       IL       1  £  U 

110    CONTINUE 

TV«  «VA8-V1IN) /VINK 

Ie  (TV.GT.NINK)  IV-NTNK»1 
1?0  CONTINUE 

TABLE (IV»1) =TA °LE (tV*l)*l 

BrriiDki 


RETURN 
FNP 


SUeSCUTlNf    ST  I  XI     <TA9LE,VHAX,VMlN,NlN*,VA9,TTITLr,lNTHTL,LTN><,LANC 
1) 

cot 

CCf 
DTf 

nit 

INI 


RF 
FT 
OS 
OA 
OA 
00 
XT 
TA 
100  CO 

su 

T» 
VT 
IN 
00 
110  T* 
If 

i?n  co 

iu 

10 

Cl 

ST 

GO 

no  co 

IU 
10 
CI 
ST 
11.0  CO 


M^ON  / 

frcn  / 

MFNSIO 
NFNSTO 
TFGFR 
AL  IOV 
UIVALE 
TA  INP 
TA  MOS 
TA  EPS 

100  I 
ABLFU 
BL(I>» 
NTINUE 
HS=0.0 
0.0 

NK=(V1 
OEX=NI 

110  I 
T»TABL 

(T)  1 
NTINUF 
NDFR=1 
VFR=10 
EAN=TA 
O=S0PT 

TC  H. 
NTTNUE 
NDFP*0 
VFP«0 

famo. 
n»o.o 

NTINUE 


T/    FPSILON, ALLCFTT 

OPLOTO/    OPLOT,T0ATF,ISH, IOVF°, IUNOFB  ,  PLO'SH 

N    XTABLF(TIO) ,    TABL<310) 

N    ITITLF(LSTHTL)  ,    TAPLF<MN<) 

OUT°UT,P,JS':H,C09FS?,WORn<'7,PLOTSK,MOS7 

FR, IUNPFR 

NCE  <WCSZ,*OROS7) 

UT,0UTPUT,"JNCH/t,fc,7/ 

7/10/ 

ILON,ALLOFTT/.0  0OS,99.a«95/ 

-1,310 

1=0.0 

XTABLE (I) 


AX-VMIN1/NINK 

NK+2 

=1, INDEX 

F(I) 

20,130,120 

00.0»TABLE<1> /T 

0.0»TABLE(INOEX)/T 

PLF (NINK+X) /T 

(A9S(TAPLF(NI  •»*♦<,)  /T-CMFAN»CMFAN)) 

0 


X 

1  0 

X 

?0 

1 

xn 

V 

fcO 

X 

c0 

X 

fi  0 

X 

7T 

X 

e.o 

X 

90 

X 

100 

X 

no 

< 

l'O 

X 

1  '0 

* 

li*0 

X 

ISO 

t 

l&O 

X 

170 

Y 

1  0 

Y 

20 

Y 

'0 

* 

1.0 

X 

5  0 

Y 

hO 

Y 

7n 

Y 

rh 

Y 

90 

Y 

1  OP 

Y 

1  1  0 

Y 

120 

Y 

1  xo 

Y 

1  (.0 

Y 

1  L0 

Y 

160 

Y 

170 

Y 

1  AC 

Y 

190 

Y 

200 

Y 

'10 

Y 

'20 

Y 

230 

Y 

21.0 

Y 

'50 

Y 

260 

Y 

270 

Y 

2*0 

Y 

2«0 

Y 

300 

Y 

310 

Y 

320 

Y 

3X0 

Y 

X4.0 

Y 

XSO 
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'T.TA°LC(1»4TAPI.  F  (NTNK»1 ) 
f*C*LM  *i.  o 
w^ITF     (OUT°UT  ,  '1,0) 

WITF     (OUTPUT,  ^?0>     LINK 
Ir      (LANi-.FQ.O)     GO    TO     150 

w^ITF     (OUTPUT , "0)     LflNC 
150    C0NTTrue 

Tc      (FLOT^M.NF . 0)     W»IT^      (  fUT pi  IT , ' 1 0 )     A? 
tNPFXT=tNTMTL/K"SZ»l 

Ir     (fCD(LNTHTL  ,WOS*>  .EC.  0)     INOFXTsINDFXT-1 
Ic     <TN0cXT.r0. O)     r;i    TO     If  Q 

W9ITF     (OUTPUT, 2fe0>      ( ITITLF(I) , T«l, INHFXT) 
1M    CONTINUE 

w'TTF     (O')TPUT,  ?i.O)     T,C*EAN,STD 

W9ITF     (OUTPUT, TOO) 

IT  =  -1 

00     200    IM.TNOE* 

I T  =  T I  ♦  S 

XTAPLF(IT)=(T»OLE<T>/T)»10n.O 

T1PL (11*1 )* (1-1. 5)»VINK+VMTN 

T4PL(TH  *TA9L  (11*1) 

T1RL  r IT-  1  HTAP.L  (II) 

SiJH?sSU1S»XTABUP(TT» 

Ir     («U"".LT.FPSIL0N) IGC+TOI?00 

Ul  =  (T-l)  'VTNlf  »VNTN 

OUPRMOO .0-SUHS 

i~"FAM*iJL/0«FA». 

IF     (*TO>     170,1*0,1'0 
170     i"ONTINUr 

Of  vfJNs  (UL-CMFftM)  'STO 

GC  TC  190 
1«1  CONTINUF 

CF VPF»N» INCIN 
150  CONTINUF 

P'rQPLQPPCC^FAN.ULtSTO) 

HPITF  (OUTPUT  ,250)  UL,T«"Lr(T),XTaaLr(II),',i"S,';L''i-',rMirSNljnrvM'-AN 
1,°P 

IF  (I.FO.n  WRITF  (OUTPUT, ?O0) 

Ic  (I.FO.INOFX)  WRtTF  (OUTPUT, ?R0) 

Ie   (SUMS.GE.»LL(1FIT  .  ANO  .  T  ,L  T  .  I  MOFX-1  )  f- 0  TO  ?1P 
200  CONTINUE 

GO  TO  2^0 
210  CONTINUF     *» 

W^ITE  (OUTPUT, ?70) 

J-I  +  l 

no  220  I=J,TNOFX 

11=11*3 

T«BL<II»1>*(I-1.5)»VIN*»VMIN 

TARL  (II)*TARL CII*i) 

TAPL<II-t)»TABl (II) 
220  CONTINUE 
270  CONTINUE 

Rf TURN 

?l»0  FORPAT  (//,20X,     16-tFNTRIFS     IN     TAPLF,5X,     l'MMFAN    ARGUMENT, 5X,        flHST 

lAHDARP,     1  OH    0FVTATION,/,?6X,Fi 0. 0,RX,F10.T, 11X.F1 0. 7,//) 

250  FORMAT  (10X,Fll4.T,Cl5.n,eF15.'?) 

260  FORMAT  r//,?0X,12At01 

270  FORPAT  (10X,     TI.MRC  1  AINING    FREQUENCIES     A  RF    ALL     7FP0) 

2A0  FOPPAT  (     21.M  +  0VF9FI.  OH       XXXXXXXXXXXXX) 

290  FOPPAT  (     IOH+UNOFRFlow) 


Y 

'50 

Y 

'70 

Y 

?«r 

Y 

?M0 

Y 

1-00 

V 

i.  1  0 

Y 

1.20 

Y 

It'll 

Y 

1.1.0 

r 

1.5  0 

Y 

1,60 

V 

1*70 

Y 

i»80 

Y 

i»qn 

Y 

too 

Y 

5  1  0 

Y 

^20 

v 

5  '0 

Y 

5,0 

Y 

rr-P 

5  7  0 

con 

'   90 
600 

5  i  n 
f  ?o 

K    10 

f    4  0 


7  00 
7  1  " 

7°n 

75  0 
7i  0 

Tf  0 
T70 
7»0 
7Q0 

f  nn 

a 1  0 
A  ?0 
A'O 
n-0 
A^  0 
Af  0 
P70 
A«0 
A90 
900 
91  0 
920 
910 
9«,0 
950 
960 
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970 

9«o 

990 

iono 

1010 

io?n 

10*0 
lflVO 
1050 
1060 


FUNCTION  ORLQPa(Z,»VG,0«V) 
C1HP»«l.O 

Ie  (OFV)  110,100,110 
1"0  CONTINUE 

u»o 

GO  TO  1»0 
110  CONTINUE 

L*AP< <7-AVG)/OFV 
1?0    CONTINU* 

Ie     (U-1.4)     130,130,160 
1»0    TCPP»U").  J999<.23 

GINT»TFR* 

U*-U»U 

R«0.0 
11,0    9»Pt2. 

Tcp^.Tf  RN»U»CR-l.t  '  (R*  <R*1.»  ) 

r,lNT«GlNT»TFRH 

I*    (ABSCTFR.*)-.  00011    150,150,1«.0 
150    GTNT«.5»r.INT»C0^P»>IGMa.,  (Z-AVG)) 

GC    TC    190 
160    PHI*U 

UCC»1. 

COM. 

R»0. 

Q»0. 

AIT--1. 
170    R«R»1. 

UCO»l./»R»UCO) 

T'RHO 

0»OC 

Q1«C*U»UCO»TERH 

ALT«-ALT 

TPR>"«»LT/(a»00) 

PHI»FMI*TERM 

I*    (ABS  (TERM) -.000*5)     1«0,180,170 
1*0    GINT«.393  9<.23»FXP(-.5»U»U>/PwI 

GTnTb.SM.S-GINTI^OWP'SIGNU.,  (Z-AVG) ) 
190  CONTINUE 

QRLOPB=GINT 

UPTURN 


PND 


7 

10 

7 

?0 

z 

TO 

z 

kO 

7 

c0 

7 

60 

? 

70 

7 

f  0 

7 

90 

7 

1  00 

7 

110 

Z 

l'O 

7 

1  TO 

7 

11.0 

7 

1^0 

7 

160 

7 

170 

7 

1*0 

7 

190 

7 

'no 

Z 

?10 

7 

??0 

7 

?*0 

7 

2«,0 

7 

?50 

7 

?60 

7 

?70 

7 

?fiO 

7 

?90 

Z 

TOO 

7 

no 

7 

3?o 

7 

330 

7 

3*0 

7 

350 

7 

360 

7 

370 

7 

360 

7 

390 

7 

too 

7 

<»10 

7 

1,20 

SUPPOUTINF    STIXfc     <TA»IF1,TA«LF?,VAR,NCALL,VMEAN,STDFV> 

TABlFl«fl. 

T«PLF?«0. 


AA 

10 

AA 

?0 

AA 

30 
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N'ALL'O 
PCTU»N 


At 

<40 

04 

5n 

M 

60 

at 

70 

SUBROUTINE    STIXC     (TARLF1  ,T  A«»LF?,  VAP,NC«  LI,  VME  AN,  STDEV) 

T  1PLF1=T  ASLM  +  VA" 

TafiLE?  =  TA9LF2H/Aa*VAP 

NCALL  =  NCALL  »1 

5CTU»N 


«« 

10 

«B 

20 

as 

30 

AO 

kQ 

AR 

50 

an 

60 

an 

70 

si.opCUTINF    STI*6    (TA»L^l»TA1LE?»VAP,NC»LL,tfMrAH,STDEV) 

T=FLCAT (NC»LL ) 

Tr     <  T  .  L  c  .  0  .  >     r»C    TO    mo 

VMfAK*T»TLFl/T 

STEV»S1RT(APS  (TAB(.r?/T-VMFAN»VMEAN)  ) 

pr TUPW 

v"<Fa^o. 

3TDFV=0. 
fc^TIIPN 

FNO 


AC 

10 

AC 

?0 

AT 

*0 

AT 

1.0 

«r 

to 

ar 

en 

AC 

70 

ar 

B0 

ar 

90 

AC 

1  nn 

AC 

1 10 

Z=RANF(0> 

Ic     (7. IT. 0.5)     GO    T)    100 

7  =  7-. 5 

Sir,S»-l. 
100    OO    110    1=1, 80 

IF     (7. LT. TABLE  (I) )     CO    TO    1?0 
110    CONTINUE 
1?0    CONTINUE 

NOPKAL=A»SIGN,P,<pLOAT(I)-PANF(0)-l.n: 

PFTUPN 


>  »0.05 


an 

1 0 

AD 

?o 

AH 

■<o 

an 

hO 

4n 

Ff) 

AD 

60 

AD 

70 

ao 

B0 

ao 

90 

An 

100 

an 

110 

An 

1?0 

an 

no 

an 

K.0 

an 

160 

an 

160 

an 

170 

an 

mo 

an 

190 

an 

?nn 

an 

?10 

an 

??0 

ao 

?30 

an 

?«»0 

An 

?50 

PfAL    FUNCTION     NFf,FtP(A) 
Ncr,F*PiT.7F-(l.n/A-0.7F)»ALOr.  (PAKF(O) > 


BF 
AE 


10 
?0 
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RETURN 
FNO 


AE 

30 

AC 

••0 

AF 

50 

110 


function  timeip<npmnt> 
data  ish,x,y/0,0.0,0.0/ 
ie    (isw.mf.o)    go  tt    100 

ISMs-1 

CALL  SECONO  (Y) 

CONTINUE 

CALL  SFCONO  (X) 

7»X-Y 

If  (NPRINT.EO. 0)  G3  TO  110 

*3ITF  (6,1?0)  7 

CONTINUE 

Y*X 

TTfFLP"? 

RETURN 


)  EOPhAT 
IS,/) 


(/,  35H 


..CP  TIMF  SINCE  LAST  CALL 


,^8.3, 


AF 

IB 

AF 

?0 

AF 

30 

AF 

to 

AF 

50 

AF 

60 

AF 

70 

AF 

80 

AF 

90 

AF 

100 

AF 

110 

AF 

1?0 

AF 

130 

AF 

HO 

AF 

150 

8H  SECOND  AF 

160 

AE 

170 

AF 

1B0 

AF 

190 
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-HV  Network  a   Traffic  Data 


SIGNET    Code 


CONTROL  CARDS 

JOB.=  Job  Card 
RUN(S)  =  Compile  Card 
LGO.  =  Load  and  Execute 


FIGURE    B-2 


SIGNET  Program   Deck  Structure 
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Appendix  C 

Traffic  Flow  Data 
The  following  tables  give  detailed  summaries  of 
traffic  characteristics  during  average  peak  hour  conditions 
on  the  test  network.   The  data  is  presented  for  each  of  the 
six  15-minute  periods  comprising  the  study  period,  4:00  to 
5:30  P.M.   Traffic  volumes,  turning  probabilities,  and 
lane  distributions  were  obtained  through  a  system  of  machine 
and  manual  counts.   Traffic  signal  settings  were  obtained 
by  stop-watch. 

TABLE  C-l 

Network  Traffic  Signal  Settings 

(All  times  in  Seconds) 


Link 

Cycle 

Offset1 

Number 

Indication 

Duration 

Length 

26 

R 
G 

A 

32 

35 

3 

70 

49 

27 

R 

23 

60 

45 

G  + 

GAL 

7 

G 

27 

A 

3 

IaH  offsets  measured  from  beginning  of  red,  Link  54  (State 
Street  and  Grant  Street) ,  to  beginning  of  first  phase  listed, 
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Link 
Number 

Indication 

Duration 

&Sjth 

Offset1 

28 

R 

19 

60 

26 

G  + 

GAL 

9 

G 

29 

A 

3 

29 

G 
A 
R 

33 

3 

24 

60 

53 

30 

R 

36 

65 

31 

G  + 

GAL 

5 

G 

21 

A 

3 

31 

G 
A 
R 

20 

3 

42 

65 

0 

32 

G 

55 

55 

0 

33 

R 
G 
A 

20 

32 

3 

55 

39 

34 

G 

55 

55 

0 

35 

G 
A 
R 

29 

4 

27 

60 

17 

36 

G 
A 
R 

28 

3 

44 

75 

60 

37 

G 

60 

60 

0 

38 

G 
A 
R 

33 

3 

24 

60 

53 

39 

R 
G 
A 

31 

26 

3 

60 

26 

40 

G 
A 
R 

20 

3 

37 

60 

45 
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Link 

Cycle 

Number 

Indication 

Duration 

Length 

Offset 

41 

R  (All  red) 

G 

A 

R 

2 
15 

3 
50 

70 

49 

42 

R 
G 

A 

25 

22 

3 

50 

24 

43 

R 
G 
A 

36 

21 

3 

60 

53 

44 

G 

55 

55 

0 

45 

G 

55 

55 

0 

46 

R 
G 
A 

20 

32 

3 

55 

39 

47 

G 
A 
R 

20 

3 

42 

65 

0 

48 

R 
G 
A 

33 

24 

3 

60 

17 

49 

R 
G 
A 

33 

24 

3 

60 

17 

50 

R 
G 
A 

20 

42 

3 

65 

64 

51 

R 
G 
A 

32 

31 

3 

65 

40 

52 

R 
G 
A 

23 

38 

4 

65 

53 
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Link 

Cycle 

Number 

Indication 
R 

Duration 
35 

Length 
65 

Offset 

53 

26 

G 

27 

A 

3 

54 

R 
G 
A 

36 

26 

3 

65 

0 

55 

R 

GAR 
G 
A 

31 

30 

11 

3 

75 

60 

56 

R 

23 

65 

0 

G  + 

GAL 

10 

G 

3 

A 

29 

57 

R 

20 

65 

26 

G  + 

GAL 

12 

G 

30 

A 

3 

58 

GAL 
A 

GAS 
A 

20 
3 

38 
4 

65 

53 

59 

R 
G 
A 

32 

30 

3 

65 

40 

60 

G 
A 
R 

17 

3 

45 

65 

64 

61 

R 
G 

A 

20 

42 

3 

65 

64 

62 

G 
A 
R 

17 

3 

45 

65 

64 

240 


Link 

Cycle 

Number 

Indication 

Duration 

Length 

Offset 

63 

G 
A 
R 

29 

3 

33 

65 

40 

64 

G 
A 
R 

29 

3 

33 

65 

40 

65 

G 
A 
R 

17 

3 

45 

65 

26 

66 

G 
A 
R 

17 

3 

45 

65 

26 

67 

G  +  GAL 

G 

A 

R 

8 
35 

3 
29 

65 

31 

68 

R 
G 
A 

41 

21 

3 

65 

31 

69 

R 
G 
A 
R 

8 
25 

3 
29 

65 

31 

70 

GADR 

GAL  +  GADR 

A 

R 

31 

27 

3 

14 

75 

60 

71 

R 
G 

A 

61 

11 

3 

75 

60 

72 

G 
A 
R 

17 

3 

35 

55 

39 

73 

G 
A 
R 

17 

3 

35 

55 

39 
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Link 

Cycle 

Number 

Indication 

Duration 

Length 

Offset 

74 

R 

55 

55 

0 

75 

G 
A 
R 

30 

3 

27 

60 

17 

76 

R 
G 
A 

33 
24 

3 

60 

17 

77 

R 
G 
A 

36 

21 

3 

60 

53 

78 

G 
A 
R 

16 

3 

41 

60 

26 

79 

G 
A 
R 

20 

3 

37 

60 

45 

80 

R 

G 
A 

33 

24 

3 

60 

45 

81 

R 
G 
A 
R 

20 
9 
3 

38 

70 

49 

82 

R 
G 
A 

32 

35 

3 

70 

49 

83 

G 
A 
R 

22 

3 

25 

50 

24 

84 

G 
A 
R 

22 

3 

25 

50 

24 
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•-  i  ' 
*-  a 
in 
<v  •- 

tair 


ff  a 


K  i  o 

c  c 


It 

-   IV 

f 


I" 


E   + 

m 

I 

ft 

a  r 

is 

2 

2   «v 

a 


a  c. 
i    v  rv  I 
•     •    •  i 


'i  K  if.  ■• 
■  r>  m  ■♦ 


i    i    i    •    t    • 
i    •    i    i    i    i 


i  nr-  ir  fs 

M  *  W  <•  * 


I-    P    IN.  * 

if  r  «  «■ 


«  k  f  iv 


i     I    •    • 

III! 


hr  if  r 
»-  tf  tr  »r 


9 
I  IV 
I      • 


I     I     I    II     I     I 

I     I     I     I     •     I 


9  r>  i/i  rv  ,    r>cc|r*-« 
f  p«f   |  «v  —  ■*  <  « 

•      •     ••|9      •     •     •     •     • 


r  i  —  rv 
i  «v  i  |i  n< 
i    •   i    i     •   • 


if  —  if 
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